home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / amiga / gcc233.lha / src-patches / gcc-2.3.3-diff next >
Encoding:
Text File  |  1992-12-30  |  90.6 KB  |  2,973 lines
  1. diff -r2cN gcc-2.3.3/c-parse.y my-gcc-2.3.3/c-parse.y
  2. *** gcc-2.3.3/c-parse.y    Wed Oct  7 20:19:01 1992
  3. --- my-gcc-2.3.3/c-parse.y    Sat Nov 28 22:24:44 1992
  4. ***************
  5. *** 854,858 ****
  6.   attrib
  7.       : IDENTIFIER
  8. !     { if (strcmp (IDENTIFIER_POINTER ($1), "packed"))
  9.           warning ("`%s' attribute directive ignored",
  10.                IDENTIFIER_POINTER ($1));
  11. --- 854,865 ----
  12.   attrib
  13.       : IDENTIFIER
  14. !     {
  15. ! #ifdef HANDLE_ATTRIBUTE0
  16. !       /* give the function a chance to validate further attributes */
  17. !       if (HANDLE_ATTRIBUTE0 (IDENTIFIER_POINTER ($1)) ||
  18. !           strcmp (IDENTIFIER_POINTER ($1), "packed"))
  19. ! #else
  20. !       if (strcmp (IDENTIFIER_POINTER ($1), "packed"))
  21. ! #endif
  22.           warning ("`%s' attribute directive ignored",
  23.                IDENTIFIER_POINTER ($1));
  24. diff -r2cN gcc-2.3.3/cccp.c my-gcc-2.3.3/cccp.c
  25. *** gcc-2.3.3/cccp.c    Wed Dec 30 00:11:02 1992
  26. --- my-gcc-2.3.3/cccp.c    Mon Dec 28 14:00:11 1992
  27. ***************
  28. *** 40,43 ****
  29. --- 40,57 ----
  30.   #endif /* not EMACS */
  31.   
  32. + #ifdef amigados
  33. + /* since cpp uses alloca to store all its read files, this is quite deadly
  34. +    on a system with non-automatic stackgrowth like amigados, so we better
  35. +    turn it off now..
  36. + 
  37. +    Note that it's not wise to generally inhibit __builtin_alloca, since
  38. +    using the generic emulator entitels a serious (!) speed penalty, and
  39. +    it's bad enough that we have to live with it in cccp, don't make cc1
  40. +    unbearably slow as well... */
  41. + #undef alloca
  42. + 
  43. + static int amigados_abs_file ();
  44. + #endif
  45. + 
  46.   #ifndef STANDARD_INCLUDE_DIR
  47.   #define STANDARD_INCLUDE_DIR "/usr/include"
  48. ***************
  49. *** 181,185 ****
  50. --- 195,203 ----
  51.   extern struct tm *localtime ();
  52.   extern int sys_nerr;
  53. + 
  54. + #ifndef HAVE_STRERROR
  55.   extern char *sys_errlist[];
  56. + #define strerror(err) sys_errlist[err]
  57. + #endif
  58.   
  59.   #ifndef errno
  60. ***************
  61. *** 1673,1676 ****
  62. --- 1691,1697 ----
  63.         char *p1 = p;
  64.         /* Discard all directory prefixes from P.  */
  65. + #ifdef FILE_NAME_NONDIRECTORY
  66. +       p = FILE_NAME_NONDIRECTORY (p);
  67. + #else
  68.         while (*p1) {
  69.       if (*p1 == '/')
  70. ***************
  71. *** 1678,1681 ****
  72. --- 1699,1703 ----
  73.       p1++;
  74.         }
  75. + #endif
  76.         /* Output P, but remove known suffixes.  */
  77.         len = strlen (p);
  78. ***************
  79. *** 3394,3398 ****
  80.         if (!no_output && already_output == 0
  81.         && (kt->pass_thru
  82. !           || (kt->type == T_DEFINE
  83.             && (dump_macros == dump_names
  84.                 || dump_macros == dump_definitions)))) {
  85. --- 3416,3420 ----
  86.         if (!no_output && already_output == 0
  87.         && (kt->pass_thru
  88. !           || ((kt->type == T_DEFINE || kt->type == T_UNDEF)
  89.             && (dump_macros == dump_names
  90.                 || dump_macros == dump_definitions)))) {
  91. ***************
  92. *** 3726,3729 ****
  93. --- 3748,3763 ----
  94.   #ifndef VMS
  95.           ep = rindex (nam, '/');
  96. + 
  97. + #ifdef amigados
  98. +         /* amigados uses unix-style directory-filename separation, but
  99. +            has VMS-style logicals as well */
  100. + 
  101. +         if (ep == NULL) 
  102. +           {
  103. +         ep = rindex (nam, ':');
  104. +         /* a ':' is part of the directory name, a '/' isn't ! */
  105. +             if (ep != NULL) ep++;
  106. +           }
  107. + #endif /* amigados */
  108.   #else                /* VMS */
  109.           ep = rindex (nam, ']');
  110. ***************
  111. *** 3801,3805 ****
  112. --- 3835,3843 ----
  113.     /* If specified file name is absolute, just open it.  */
  114.   
  115. + #ifndef amigados
  116.     if (*fbeg == '/') {
  117. + #else
  118. +   if (amigados_abs_filename (fbeg, flen)) {
  119. + #endif
  120.       strncpy (fname, fbeg, flen);
  121.       fname[flen] = 0;
  122. ***************
  123. *** 3824,3827 ****
  124. --- 3862,3869 ----
  125.         continue;
  126.       strcpy (fname, searchptr->fname);
  127. + 
  128. + #ifdef amigados
  129. +     if (fname[strlen (fname) - 1] != ':')
  130. + #endif
  131.       strcat (fname, "/");
  132.       fname[strlen (fname) + flen] = 0;
  133. ***************
  134. *** 7638,7642 ****
  135.   
  136.     if (errno < sys_nerr)
  137. !     fprintf (stderr, "%s: %s\n", name, sys_errlist[errno]);
  138.     else
  139.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  140. --- 7680,7684 ----
  141.   
  142.     if (errno < sys_nerr)
  143. !     fprintf (stderr, "%s: %s\n", name, strerror (errno));
  144.     else
  145.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  146. ***************
  147. *** 8539,8545 ****
  148.        char *name;
  149.   {
  150.     fprintf (stderr, "%s: ", progname);
  151. !   if (errno < sys_nerr)
  152. !     fprintf (stderr, "%s: %s\n", name, sys_errlist[errno]);
  153.     else
  154.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  155. --- 8581,8589 ----
  156.        char *name;
  157.   {
  158. +   int error = errno;
  159. + 
  160.     fprintf (stderr, "%s: ", progname);
  161. !   if (error < sys_nerr)
  162. !     fprintf (stderr, "%s: %s\n", name, strerror (error));
  163.     else
  164.       fprintf (stderr, "%s: undocumented I/O error\n", name);
  165. ***************
  166. *** 8917,8918 ****
  167. --- 8961,8986 ----
  168.   }
  169.   #endif /* VMS */
  170. + 
  171. + 
  172. + #ifdef amigados
  173. + 
  174. + /* This function returns whether the LEN characters long filename FNAME 
  175. +    is an absolute path specification. */
  176. + 
  177. + static int
  178. + amigados_abs_filename (fname, len)
  179. +      char *fname;
  180. +      int len;
  181. + {
  182. +   /* we're using ixemul.library, which treats `/foo' as `foo:', so 
  183. +      fname[0] is to be considered absolute as well */
  184. +   if (fname[0] == '/')
  185. +     return 1;
  186. + 
  187. +   /* else do an index() on fname, but one which is limited to len characters */
  188. +   while (*fname && *fname != ':' && len) 
  189. +     fname++, len--;
  190. + 
  191. +   return *fname == ':';
  192. + }
  193. + #endif /* amigados */
  194. diff -r2cN gcc-2.3.3/config/amigados.c my-gcc-2.3.3/config/amigados.c
  195. *** gcc-2.3.3/config/amigados.c
  196. --- my-gcc-2.3.3/config/amigados.c    Sun Nov 29 13:41:42 1992
  197. ***************
  198. *** 0 ****
  199. --- 1,158 ----
  200. + /* Definitions of target machine for GNU compiler.  amiga 68000/68020 version.
  201. +    Copyright (C) 1992 Free Software Foundation, Inc.
  202. +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  203. + 
  204. + This file is part of GNU CC.
  205. + 
  206. + GNU CC is free software; you can redistribute it and/or modify
  207. + it under the terms of the GNU General Public License as published by
  208. + the Free Software Foundation; either version 2, or (at your option)
  209. + any later version.
  210. + 
  211. + GNU CC is distributed in the hope that it will be useful,
  212. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  213. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  214. + GNU General Public License for more details.
  215. + 
  216. + You should have received a copy of the GNU General Public License
  217. + along with GNU CC; see the file COPYING.  If not, write to
  218. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  219. + 
  220. + #include "m68k.c"
  221. + 
  222. + /* Does operand (which is a symbolic_operand) live in text space? If
  223. +    so SYMBOL_REF_FLAG, which is set by ENCODE_SECTION_INFO, will be true.
  224. + 
  225. +    This function is used in base relative code generation. */
  226. + 
  227. + int
  228. + read_only_operand (operand)
  229. +      rtx operand;
  230. + {
  231. +   if (GET_CODE (operand) == CONST)
  232. +     operand = XEXP (XEXP (operand, 0), 0);
  233. +   if (GET_CODE (operand) == SYMBOL_REF)
  234. +     return SYMBOL_REF_FLAG (operand) || CONSTANT_POOL_ADDRESS_P (operand);
  235. +   return 1;
  236. + }
  237. + 
  238. + 
  239. + /* the rest of the file is to implement AmigaDOS specific keywords some day.
  240. +    The approach used so far used __attribute__ for this, but this required
  241. +    changes to c-parse.y as well as if we'd use the common keywords used
  242. +    on commercial AmigaDOS C-compilers as well. So in the future I'll probably
  243. +    switch to __saveds and __interrupt keywords as well.
  244. + 
  245. +    The rest of this file is currently ignored, because it's no longer
  246. +    working with the current gcc version. */
  247. + 
  248. + #if not_yet_working
  249. + 
  250. + #include "tree.h"
  251. + 
  252. + struct attribute {
  253. +   tree ident;
  254. +   int  saveds : 1,
  255. +        interrupt : 1;
  256. + };
  257. + 
  258. + 
  259. + static struct attribute *a_tab = 0;
  260. + static int a_index, a_size;
  261. + 
  262. + void
  263. + add_attr_entry (attr)
  264. +     struct attribute *attr;
  265. + {
  266. +   if (! a_tab)
  267. +     {
  268. +       a_size = 10;
  269. +       a_index = 0;
  270. +       a_tab  = (struct attribute *) xmalloc (a_size * sizeof (struct attribute));
  271. +     }
  272. + 
  273. +   if (a_index == a_size)
  274. +     {
  275. +       a_size <<= 1;
  276. +       a_tab = (struct attribute *) xrealloc (a_tab, a_size * sizeof (struct attribute));
  277. +     }
  278. + 
  279. +   a_tab[a_index++] = *attr;
  280. + }
  281. + 
  282. + 
  283. + void
  284. + attr_do_saveds (function_ident)
  285. +       tree function_ident;
  286. + {
  287. +   struct attribute attr, *a;
  288. +   int i;
  289. + 
  290. +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  291. +     if (a->ident == function_ident)
  292. +       {
  293. +     a->saveds = 1;
  294. +     return;
  295. +       }
  296. + 
  297. +   /* create a new entry for this function */
  298. +   attr.ident     = function_ident;
  299. +   attr.saveds    = 1;
  300. +   attr.interrupt = 0;
  301. +   add_attr_entry (&attr);
  302. + }
  303. + 
  304. + void
  305. + attr_do_interrupt (function_ident)
  306. +     tree function_ident;
  307. + {
  308. +   struct attribute attr, *a;
  309. +   int i;
  310. + 
  311. +   for (i = 0, a = a_tab; i < a_index; i++, a++)
  312. +     if (a->ident == function_ident)
  313. +       {
  314. +     /* __interrupt implies __saveds */
  315. +     a->saveds    = 1;
  316. +     a->interrupt = 1;
  317. +     return;
  318. +       }
  319. + 
  320. +   /* create a new entry for this function */
  321. +   attr.ident     = function_ident;
  322. +   attr.saveds     = 1;
  323. +   attr.interrupt = 1;
  324. +   add_attr_entry (&attr);
  325. + }
  326. + 
  327. + int
  328. + attr_does_saveds (function_name)
  329. +     char *function_name;
  330. + {
  331. +   tree ident = get_identifier (function_name);
  332. +   struct attribute *attr;
  333. +   int i;
  334. +   
  335. +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  336. +     if (attr->ident == ident)
  337. +       return attr->saveds;
  338. + 
  339. +   return 0;
  340. + }
  341. + 
  342. + int
  343. + attr_does_interrupt (function_name)
  344. +     char *function_name;
  345. + {
  346. +   tree ident = get_identifier (function_name);
  347. +   struct attribute *attr;
  348. +   int i;
  349. +   
  350. +   for (i = 0, attr = a_tab; i < a_index; i++, attr++)
  351. +     if (attr->ident == ident)
  352. +       return attr->interrupt;
  353. + 
  354. +   return 0;
  355. + }
  356. + 
  357. + #endif
  358. diff -r2cN gcc-2.3.3/config/amigados.h my-gcc-2.3.3/config/amigados.h
  359. *** gcc-2.3.3/config/amigados.h
  360. --- my-gcc-2.3.3/config/amigados.h    Sat Nov 28 22:24:59 1992
  361. ***************
  362. *** 0 ****
  363. --- 1,377 ----
  364. + /* Definitions of target machine for GNU compiler.  amiga 68000/68020 version.
  365. +    Copyright (C) 1992 Free Software Foundation, Inc.
  366. +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  367. + 
  368. + This file is part of GNU CC.
  369. + 
  370. + GNU CC is free software; you can redistribute it and/or modify
  371. + it under the terms of the GNU General Public License as published by
  372. + the Free Software Foundation; either version 2, or (at your option)
  373. + any later version.
  374. + 
  375. + GNU CC is distributed in the hope that it will be useful,
  376. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  377. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  378. + GNU General Public License for more details.
  379. + 
  380. + You should have received a copy of the GNU General Public License
  381. + along with GNU CC; see the file COPYING.  If not, write to
  382. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  383. + 
  384. + #include "m68k.h"
  385. + 
  386. + /* See tm-m68k.h.  0 means 68000 without 68881.  */
  387. + 
  388. + #ifndef TARGET_DEFAULT
  389. + #define TARGET_DEFAULT 0
  390. + #endif
  391. + 
  392. + /* Define __HAVE_68881__ in preprocessor according to the -m flags.
  393. +    This will control the use of inline 68881 insns in certain macros.
  394. +    Also inform the program which CPU this is for.  */
  395. + 
  396. + #if TARGET_DEFAULT & 02
  397. + 
  398. + /* -m68881 is the default */
  399. + #define CPP_SPEC \
  400. + "%{!msoft-float:-D__HAVE_68881__ }\
  401. + %{!ansi:%{m68000:-Dmc68010}%{mc68000:-Dmc68010}%{!mc68000:%{!m68000:-Dmc68020}}}"
  402. + 
  403. + #else
  404. + 
  405. + /* -msoft-float is the default, assume -mc68000 as well */
  406. + #define CPP_SPEC \
  407. + "%{m68881:-D__HAVE_68881__ }\
  408. + %{!ansi:%{m68020:-Dmc68020}%{mc68020:-Dmc68020}%{!mc68020:%{!m68020:-Dmc68010}}}"
  409. + 
  410. + #endif
  411. + 
  412. + /* -m68000 requires special flags to the assembler.  */
  413. + 
  414. + #if TARGET_DEFAULT & 01
  415. + 
  416. + #define ASM_SPEC \
  417. +  "%{m68000:-mc68010}%{mc68000:-mc68010}%{!mc68000:%{!m68000:-mc68020}} %{msmall-code:-l} "
  418. + 
  419. + #else
  420. + 
  421. + #define ASM_SPEC \
  422. +  "%{m68020:-mc68020}%{mc68020:-mc68020}%{!mc68020:%{!m68020:-mc68010}} %{msmall-code:-l} "
  423. + 
  424. + #endif
  425. + 
  426. + /* amiga/amigados are the new "standard" defines for the Amiga, MCH_AMIGA
  427. +  * was used before and is included for compatibility reasons */
  428. + 
  429. + #define CPP_PREDEFINES "-Dmc68000 -Damiga -Damigados -DMCH_AMIGA -DAMIGA"
  430. + 
  431. + /* Chose the right startup file, depending on whether we use base relative code,
  432. +    base relative code with automatic relocation (-resident), or plain crt0.o. 
  433. +   
  434. +    Profiling is currently only available for plain startup.
  435. +    mcrt0.o does not (yet) exist. */
  436. + 
  437. + #define STARTFILE_SPEC                    \
  438. +   "%{resident:%{!fbaserel:-L gcc:blib }}%{fbaserel:-L gcc:blib }\
  439. + %{resident:rcrt0.o%s}%{!resident:%{!fbaserel:%{pg:gcrt0.o%s}%{!pg:%{p:mcrt0.o%s}%{!p:crt0.o%s}}}%{fbaserel:%{pg:bgcrt0.o%s}%{!pg:%{p:bmcrt0.o%s}%{!p:bcrt0.o%s}}}}"
  440. + 
  441. + 
  442. + #define LIB_SPEC "%{!p:%{!pg:-lc}}%{p:-lc_p}%{pg:-lc_p}"
  443. + 
  444. + /* if debugging, tell the linker to output amiga-hunk symbols *and*
  445. +    a BSD compatible debug hunk (which will probably change in the future, it's not
  446. +    tremendously useful in its current state). */
  447. + 
  448. + #define LINK_SPEC "%{g:-amiga-debug-hunk} %{fbaserel:-databss-together} %{resident:-databss-together -datadata-reloc} "
  449. + 
  450. + #define CC1_SPEC "%{resident:-fbaserel} "
  451. + 
  452. + #define CC1PLUS_SPEC "%{resident:-fbaserel} "
  453. + 
  454. + /* Omit frame pointer at high optimization levels. (This doesn't hurt, since
  455. +    GDB doesn't work under AmigaDOS at the moment anyway..) */
  456. +   
  457. + #define OPTIMIZATION_OPTIONS(OPTIMIZE) \
  458. + {                                  \
  459. +   if (OPTIMIZE >= 2)                         \
  460. +     flag_omit_frame_pointer = 1;                \
  461. + }
  462. + 
  463. + /* provide a dummy entry for the small-code switch. This is currently only
  464. +    needed by the assembler (explanations: m68k.h), but will be used by cc1
  465. +    to output 16bit pc-relative code later. */
  466. + 
  467. + #undef TARGET_SWITCHES
  468. + #define TARGET_SWITCHES  \
  469. +   { { "68020", 5},                \
  470. +     { "c68020", 5},                \
  471. +     { "68881", 2},                \
  472. +     { "bitfield", 4},                \
  473. +     { "68000", -5},                \
  474. +     { "c68000", -5},                \
  475. +     { "soft-float", -0102},            \
  476. +     { "nobitfield", -4},            \
  477. +     { "rtd", 8},                \
  478. +     { "nortd", -8},                \
  479. +     { "short", 040},                \
  480. +     { "noshort", -040},                \
  481. +     { "fpa", 0100},                \
  482. +     { "nofpa", -0100},                \
  483. +     { "sky", 0200},                \
  484. +     { "nosky", -0200},                \
  485. +     { "68040", 0407},                \
  486. +     { "68030", -01400},                \
  487. +     { "68030", 7},                \
  488. +     { "68040-only", 01000},            \
  489. +     { "small-code", 0 },            \
  490. +     { "", TARGET_DEFAULT}}
  491. + 
  492. + /* Every structure or union's size must be a multiple of 2 bytes.  */
  493. + 
  494. + #define STRUCTURE_SIZE_BOUNDARY 16
  495. + 
  496. + /* This is (almost;-)) BSD, so it wants DBX format.  */
  497. + 
  498. + #define DBX_DEBUGGING_INFO
  499. + 
  500. + /* Allow folding division by zero.  */
  501. + #define REAL_INFINITY
  502. + 
  503. + /* This is how to output an assembler line defining a `double' constant.  */
  504. + 
  505. + #undef ASM_OUTPUT_DOUBLE
  506. + #define ASM_OUTPUT_DOUBLE(FILE,VALUE)                    \
  507. +   {                                    \
  508. +     if (REAL_VALUE_ISINF (VALUE))                    \
  509. +       fprintf (FILE, "\t.double 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  510. +     else if (isnan (VALUE))                        \
  511. +       {                                    \
  512. +     union { double d; long l[2];} t;                \
  513. +     t.d = (VALUE);                            \
  514. +     fprintf (FILE, "\t.long 0x%lx\n\t.long 0x%lx\n", t.l[0], t.l[1]); \
  515. +       }                                    \
  516. +     else                                \
  517. +       fprintf (FILE, "\t.double 0r%.17g\n", VALUE);            \
  518. +   }
  519. + 
  520. + /* This is how to output an assembler line defining a `float' constant.  */
  521. + 
  522. + #undef ASM_OUTPUT_FLOAT
  523. + #define ASM_OUTPUT_FLOAT(FILE,VALUE)                    \
  524. +   {                                    \
  525. +     if (REAL_VALUE_ISINF (VALUE))                    \
  526. +       fprintf (FILE, "\t.single 0r%s99e999\n", (VALUE) > 0 ? "" : "-");    \
  527. +     else if (isnan (VALUE))                        \
  528. +       {                                    \
  529. +     union { float f; long l;} t;                    \
  530. +     t.f = (VALUE);                            \
  531. +     fprintf (FILE, "\t.long 0x%lx\n", t.l);                \
  532. +       }                                    \
  533. +     else                                \
  534. +       fprintf (FILE, "\t.single 0r%.9g\n", VALUE);            \
  535. +   }
  536. + 
  537. + /* This is how to output an assembler lines defining floating operands.
  538. +    There's no way to output a NaN's fraction, so we lose it.  */
  539. +   
  540. + #undef ASM_OUTPUT_FLOAT_OPERAND
  541. + #define ASM_OUTPUT_FLOAT_OPERAND(FILE,VALUE)                \
  542. +   (REAL_VALUE_ISINF ((VALUE))                        \
  543. +    ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  544. +    : (VALUE) == -0.0                            \
  545. +    ? asm_fprintf (FILE, "%I0r-0.0")                    \
  546. +    : asm_fprintf (FILE, "%I0r%.9g", (VALUE)))
  547. + 
  548. + #undef ASM_OUTPUT_DOUBLE_OPERAND
  549. + #define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE)                \
  550. +   (REAL_VALUE_ISINF ((VALUE))                        \
  551. +    ? asm_fprintf (FILE, "%I0r%s99e999", ((VALUE) > 0 ? "" : "-")) \
  552. +    : (VALUE) == -0.0                            \
  553. +    ? asm_fprintf (FILE, "%I0r-0.0")                    \
  554. +    : asm_fprintf (FILE, "%I0r%.17g", (VALUE)))
  555. + 
  556. + 
  557. + /* use A5 as framepointer instead of A6, this makes A6 available as a
  558. +    general purpose register, and can thus be used without problems in
  559. +    direct library calls. */
  560. + 
  561. + #undef FRAME_POINTER_REGNUM
  562. + #define FRAME_POINTER_REGNUM 13
  563. + #undef ARG_POINTER_REGNUM
  564. + #define ARG_POINTER_REGNUM 13
  565. + 
  566. + /* we use A4 for this, not A5, which is the framepointer */
  567. + #undef PIC_OFFSET_TABLE_REGNUM
  568. + #define PIC_OFFSET_TABLE_REGNUM 12
  569. + 
  570. + /* setup a default shell return value for those (gazillion..) programs that
  571. +    (inspite of ANSI-C) declare main() to be void (or even VOID...) and thus
  572. +    cause the shell to randomly caugh upon executing such programs (contrary
  573. +    to Unix, AmigaDOS scripts are terminated with an error if a program returns
  574. +    with an error code above the `error' or even `failure' level
  575. +    (which is configurable with the FAILAT command) */
  576. + 
  577. + #define DEFAULT_MAIN_RETURN c_expand_return (integer_zero_node)
  578. + 
  579. + /* we do have an ansi-compliant c-library ;-) */
  580. + #define HAVE_VPRINTF
  581. + #define HAVE_VFPRINTF
  582. + #define HAVE_PUTENV
  583. + #define HAVE_STRERROR
  584. + #define HAVE_ATEXIT
  585. + 
  586. + /* given that symbolic_operand(X), return TRUE if no special
  587. +    base relative relocation is necessary */
  588. + 
  589. + #define LEGITIMATE_BASEREL_OPERAND_P(X) \
  590. +   (flag_pic >= 3 && read_only_operand (X))
  591. + 
  592. + #undef LEGITIMATE_PIC_OPERAND_P
  593. + #define LEGITIMATE_PIC_OPERAND_P(X) \
  594. +   (! symbolic_operand (X, VOIDmode) || LEGITIMATE_BASEREL_OPERAND_P (X))
  595. + 
  596. + 
  597. + /* Define this macro if references to a symbol must be treated
  598. +    differently depending on something about the variable or
  599. +    function named by the symbol (such as what section it is in).
  600. + 
  601. +    The macro definition, if any, is executed immediately after the
  602. +    rtl for DECL or other node is created.
  603. +    The value of the rtl will be a `mem' whose address is a
  604. +    `symbol_ref'.
  605. + 
  606. +    The usual thing for this macro to do is to a flag in the
  607. +    `symbol_ref' (such as `SYMBOL_REF_FLAG') or to store a modified
  608. +    name string in the `symbol_ref' (if one bit is not enough
  609. +    information).
  610. + 
  611. +    On the Amiga we use this to indicate if a symbol is in text or
  612. +    data space.  */
  613. + 
  614. + #define ENCODE_SECTION_INFO(DECL)\
  615. + do                                    \
  616. +   {                                    \
  617. +     if (TREE_CODE (DECL) == FUNCTION_DECL)                \
  618. +       SYMBOL_REF_FLAG (XEXP (DECL_RTL (DECL), 0)) = 1;            \
  619. +     else                                \
  620. +       {                                    \
  621. +     rtx rtl = (TREE_CODE_CLASS (TREE_CODE (DECL)) != 'd'        \
  622. +            ? TREE_CST_RTL (DECL) : DECL_RTL (DECL));        \
  623. +     if (RTX_UNCHANGING_P (rtl) && !MEM_VOLATILE_P (rtl))        \
  624. +       SYMBOL_REF_FLAG (XEXP (rtl, 0)) = 1;                \
  625. +       }                                    \
  626. +   }                                    \
  627. + while (0)
  628. + 
  629. + #undef SELECT_RTX_SECTION
  630. + #define SELECT_RTX_SECTION(MODE, X) readonly_data_section ();
  631. + 
  632. + /* according to varasm.c, RELOC referrs *only* to whether constants (!)
  633. +    are addressed by address. This doesn't matter in baserelative code,
  634. +    so we allow (inspite of flag_pic) readonly_data_section() in that
  635. +    case */
  636. + 
  637. + #undef SELECT_SECTION
  638. + #define SELECT_SECTION(DECL, RELOC)                    \
  639. + {                                    \
  640. +   if (TREE_CODE (DECL) == STRING_CST)                    \
  641. +     {                                    \
  642. +       if (! flag_writable_strings)                    \
  643. +     readonly_data_section ();                    \
  644. +       else                                \
  645. +     data_section ();                        \
  646. +     }                                    \
  647. +   else if (TREE_CODE (DECL) == VAR_DECL)                \
  648. +     {                                    \
  649. +       if ((flag_pic && flag_pic < 3 && RELOC)                \
  650. +       || !TREE_READONLY (DECL) || TREE_SIDE_EFFECTS (DECL))        \
  651. +     data_section ();                        \
  652. +       else                                \
  653. +     readonly_data_section ();                    \
  654. +     }                                    \
  655. +   else                                    \
  656. +     readonly_data_section ();                        \
  657. + }
  658. + 
  659. + 
  660. + 
  661. + #if not_yet_working
  662. + 
  663. + /* starting support for amiga specific keywords
  664. +  * --------------------------------------------
  665. +  */
  666. + 
  667. + /* validate attributes that don't take a parameter. Currently we support
  668. +  * __attribute__ (saveds) and __attribute__ (interrupt)
  669. +  */
  670. + #define HANDLE_ATTRIBUTE0(attr) \
  671. +   (strcmp(attr, "saveds") != 0 && strcmp(attr, "interrupt") != 0)
  672. + 
  673. + /* (c-common.c)
  674. +  * install additional attributes
  675. +  */
  676. + #define HANDLE_EXTRA_ATTRIBUTES(a)                         \
  677. +   if (TREE_VALUE (a) != 0                            \
  678. +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  679. +       && TREE_VALUE (a) == get_identifier ("saveds"))                \
  680. +     {                                        \
  681. +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  682. +         {                                    \
  683. +           warning_with_decl (decl,                        \
  684. +               "saveds attribute specified for non-function `%s'");        \
  685. +       return;                                \
  686. +         }                                    \
  687. +                                               \
  688. +       attr_do_saveds (DECL_NAME (decl));                    \
  689. +     }                                        \
  690. +   else if (TREE_VALUE (a) != 0                            \
  691. +       && TREE_CODE (TREE_VALUE (a)) == IDENTIFIER_NODE                \
  692. +       && TREE_VALUE (a) == get_identifier ("interrupt"))            \
  693. +     {                                        \
  694. +       if (TREE_CODE (decl) != FUNCTION_DECL)                    \
  695. +         {                                    \
  696. +           warning_with_decl (decl,                        \
  697. +               "saveds attribute specified for non-function `%s'");        \
  698. +       return;                                \
  699. +         }                                    \
  700. +                                               \
  701. +       attr_do_interrupt (DECL_NAME (decl));                    \
  702. +     }                                        \
  703. + 
  704. + 
  705. + #define PROLOGUE_EXTRA_SAVE(mask)                        \
  706. +   { extern char *current_function_name;                        \
  707. +     /* saveds makes the function preserve d1/a0/a1 as well */            \
  708. +     if (attr_does_saveds (current_function_name))                \
  709. +       mask |= 0x40c0; }                                \
  710. + 
  711. + 
  712. + #define EPILOGUE_EXTRA_RESTORE(mask, nregs)                    \
  713. +   { extern char *current_function_name;                        \
  714. +     /* restore those extra registers */                        \
  715. +     if (attr_does_saveds (current_function_name))                \
  716. +       {                                        \
  717. +     mask |= 0x0302;                                \
  718. +     nregs += 3;                                \
  719. +       } }                                    \
  720. + 
  721. + 
  722. + #define EPILOGUE_EXTRA_BARRIER_KLUDGE(stream)                    \
  723. +   { extern char *current_function_name;                        \
  724. +     /* PLEASE Help! how is this done cleaner?? */                \
  725. +     if (attr_does_saveds (current_function_name))                \
  726. +       {                                        \
  727. +     fprintf (stderr,                             \
  728. +          "warning: couldn't cleanup `saveds'-stack in `%s'.\n");    \
  729. +     fprintf (stderr,                            \
  730. +          "         this is only ok, if the function never returns!\n");    \
  731. +       }    }                                    \
  732. +         
  733. + 
  734. + #define EPILOGUE_EXTRA_TEST(stream)                        \
  735. +   { extern char *current_function_name;                        \
  736. +     /* with the interrupt-attribute, we have to set the cc before rts */    \
  737. +     if (attr_does_interrupt (current_function_name))                \
  738. +       asm_fprintf (stream, "\ttstl %s\n", reg_names[0]); }            \
  739. + 
  740. + #endif
  741. diff -r2cN gcc-2.3.3/config/m68k.c my-gcc-2.3.3/config/m68k.c
  742. *** gcc-2.3.3/config/m68k.c    Fri Oct 30 01:00:58 1992
  743. --- my-gcc-2.3.3/config/m68k.c    Sun Nov 29 13:39:58 1992
  744. ***************
  745. *** 61,65 ****
  746.   finalize_pic ()
  747.   {
  748. !   if (flag_pic && current_function_uses_pic_offset_table)
  749.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  750.   }
  751. --- 61,65 ----
  752.   finalize_pic ()
  753.   {
  754. !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  755.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  756.   }
  757. ***************
  758. *** 181,184 ****
  759. --- 181,187 ----
  760.         num_saved_regs--;
  761.       }
  762. + #ifdef PROLOGUE_EXTRA_SAVE
  763. +   PROLOGUE_EXTRA_SAVE (mask);
  764. + #endif
  765.   
  766.   #if NEED_PROBE
  767. ***************
  768. *** 214,218 ****
  769.   #endif
  770.       }
  771. !   if (flag_pic && current_function_uses_pic_offset_table)
  772.       {
  773.   #ifdef MOTOROLA
  774. --- 217,221 ----
  775.   #endif
  776.       }
  777. !   if (flag_pic && (flag_pic < 3) && current_function_uses_pic_offset_table)
  778.       {
  779.   #ifdef MOTOROLA
  780. ***************
  781. *** 282,285 ****
  782. --- 285,291 ----
  783.        about which function the pc is in at this address.  */
  784.         asm_fprintf (stream, "\tnop\n");
  785. + #ifdef EPILOGUE_EXTRA_BARRIER_KLUDGE
  786. +       EPILOGUE_EXTRA_BARRIER_KLUDGE(stream);
  787. + #endif
  788.         return;
  789.       }
  790. ***************
  791. *** 312,315 ****
  792. --- 318,324 ----
  793.       mask |= 1 << regno;
  794.         }
  795. + #ifdef EPILOGUE_EXTRA_RESTORE
  796. +   EPILOGUE_EXTRA_RESTORE(mask, nregs);
  797. + #endif
  798.     offset = foffset + nregs * 4;
  799.     if (offset + fsize >= 0x8000
  800. ***************
  801. *** 514,517 ****
  802. --- 523,529 ----
  803.       }
  804.       }
  805. + #ifdef EPILOGUE_EXTRA_TEST
  806. +   EPILOGUE_EXTRA_TEST(stream);
  807. + #endif
  808.     if (current_function_pops_args)
  809.       asm_fprintf (stream, "\trtd %0I%d\n", current_function_pops_args);
  810. ***************
  811. *** 804,816 ****
  812.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  813.       {
  814.         if (reg == 0)
  815.       abort ();
  816.   
  817. !       pic_ref = gen_rtx (MEM, Pmode,
  818. !              gen_rtx (PLUS, Pmode,
  819. !                   pic_offset_table_rtx, orig));
  820.         current_function_uses_pic_offset_table = 1;
  821.         RTX_UNCHANGING_P (pic_ref) = 1;
  822.         emit_move_insn (reg, pic_ref);
  823.         return reg;
  824.       }
  825. --- 816,838 ----
  826.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  827.       {
  828. + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  829. +   if (LEGITIMATE_BASEREL_OPERAND_P (orig))
  830. +     return orig;
  831. + #endif
  832. + 
  833.         if (reg == 0)
  834.       abort ();
  835.   
  836. !       if (flag_pic >= 3)
  837. !     pic_ref = gen_rtx (PLUS, Pmode, pic_offset_table_rtx, orig);
  838. !       else
  839. !         pic_ref = gen_rtx (MEM, Pmode,
  840. !                gen_rtx (PLUS, Pmode,
  841. !                     pic_offset_table_rtx, orig));
  842. ! 
  843.         current_function_uses_pic_offset_table = 1;
  844.         RTX_UNCHANGING_P (pic_ref) = 1;
  845.         emit_move_insn (reg, pic_ref);
  846. + 
  847.         return reg;
  848.       }
  849. ***************
  850. *** 841,844 ****
  851. --- 863,867 ----
  852.         /* Likewise, should we set special REG_NOTEs here?  */
  853.       }
  854. + 
  855.     return pic_ref;
  856.   }
  857. ***************
  858. *** 1888,1891 ****
  859. --- 1911,1918 ----
  860.               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  861.                 fprintf (file, ":l");
  862. +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  863. +               fprintf (file, ":W");
  864. +             if ((flag_pic == 4) && (breg == pic_offset_table_rtx))
  865. +               fprintf (file, ":L");
  866.             }
  867.           if (addr != 0 && ireg != 0)
  868. diff -r2cN gcc-2.3.3/config/m68k.h my-gcc-2.3.3/config/m68k.h
  869. *** gcc-2.3.3/config/m68k.h    Thu Oct 22 07:12:03 1992
  870. --- my-gcc-2.3.3/config/m68k.h    Sat Nov 28 22:25:06 1992
  871. ***************
  872. *** 328,334 ****
  873.   
  874.   #define CONDITIONAL_REGISTER_USAGE \
  875. ! {                                               \
  876. !   if (flag_pic)                                 \
  877. !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  878.   }
  879.   
  880. --- 328,337 ----
  881.   
  882.   #define CONDITIONAL_REGISTER_USAGE \
  883. ! {                                                \
  884. !   if (flag_pic)                                  \
  885. !     fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;     \
  886. !   /* prevent saving/restoring of the base reg */ \
  887. !   if (flag_pic == 3)                 \
  888. !     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  889.   }
  890.   
  891. diff -r2cN gcc-2.3.3/config/m68k.md my-gcc-2.3.3/config/m68k.md
  892. *** gcc-2.3.3/config/m68k.md    Mon Sep 28 13:37:59 1992
  893. --- my-gcc-2.3.3/config/m68k.md    Sat Nov 28 22:25:11 1992
  894. ***************
  895. *** 705,715 ****
  896.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  897.       {
  898. !       /* The source is an address which requires PIC relocation.  
  899. !          Call legitimize_pic_address with the source, mode, and a relocation
  900. !          register (a new pseudo, or the final destination if reload_in_progress
  901. !          is set).   Then fall through normally */
  902. !       extern rtx legitimize_pic_address();
  903. !       rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  904. !       operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  905.       }
  906.   }")
  907. --- 705,720 ----
  908.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  909.       {
  910. ! #ifdef LEGITIMATE_BASEREL_OPERAND_P
  911. !       if (flag_pic < 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  912. ! #endif
  913. !       {
  914. !         /* The source is an address which requires PIC relocation.  
  915. !            Call legitimize_pic_address with the source, mode, and a relocation
  916. !            register (a new pseudo, or the final destination if reload_in_progress
  917. !            is set).   Then fall through normally */
  918. !         extern rtx legitimize_pic_address();
  919. !         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  920. !         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  921. !       }
  922.       }
  923.   }")
  924. ***************
  925. *** 1712,1717 ****
  926.         /* These insns can result from reloads to access
  927.        stack slots over 64k from the frame pointer.  */
  928. !       if (GET_CODE (operands[2]) == CONST_INT
  929. !       && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000)
  930.           return \"move%.l %2,%0\;add%.l %1,%0\";
  931.   #ifdef SGS
  932. --- 1717,1723 ----
  933.         /* These insns can result from reloads to access
  934.        stack slots over 64k from the frame pointer.  */
  935. !       if (((GET_CODE (operands[2]) == CONST_INT
  936. !        && INTVAL (operands[2]) + 0x8000 >= (unsigned) 0x10000))
  937. !       || (flag_pic == 4 && operands[1] == pic_offset_table_rtx))
  938.           return \"move%.l %2,%0\;add%.l %1,%0\";
  939.   #ifdef SGS
  940. ***************
  941. *** 4652,4656 ****
  942.     "
  943.   {
  944. !   if (flag_pic && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  945.       operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  946.                  force_reg (Pmode, XEXP (operands[0], 0)));
  947. --- 4658,4662 ----
  948.     "
  949.   {
  950. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  951.       operands[0] = gen_rtx (MEM, GET_MODE (operands[0]),
  952.                  force_reg (Pmode, XEXP (operands[0], 0)));
  953. ***************
  954. *** 4663,4667 ****
  955.     ;; Operand 1 not really used on the m68000.
  956.   
  957. !   "! flag_pic"
  958.     "*
  959.   #ifdef MOTOROLA
  960. --- 4669,4673 ----
  961.     ;; Operand 1 not really used on the m68000.
  962.   
  963. !   "(! flag_pic || flag_pic >= 3)"
  964.     "*
  965.   #ifdef MOTOROLA
  966. ***************
  967. *** 4678,4682 ****
  968.     ;; Operand 1 not really used on the m68000.
  969.   
  970. !   "flag_pic"
  971.     "*
  972.     return \"jsr %0\";
  973. --- 4684,4688 ----
  974.     ;; Operand 1 not really used on the m68000.
  975.   
  976. !   "(flag_pic && flag_pic < 3)"
  977.     "*
  978.     return \"jsr %0\";
  979. ***************
  980. *** 4694,4698 ****
  981.     "
  982.   {
  983. !   if (flag_pic && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  984.       operands[1] = gen_rtx (MEM, GET_MODE (operands[1]),
  985.                  force_reg (Pmode, XEXP (operands[1], 0)));
  986. --- 4700,4704 ----
  987.     "
  988.   {
  989. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  990.       operands[1] = gen_rtx (MEM, GET_MODE (operands[1]),
  991.                  force_reg (Pmode, XEXP (operands[1], 0)));
  992. ***************
  993. *** 4705,4709 ****
  994.             (match_operand:SI 2 "general_operand" "g")))]
  995.     ;; Operand 2 not really used on the m68000.
  996. !   "! flag_pic"
  997.     "*
  998.   #ifdef MOTOROLA
  999. --- 4711,4715 ----
  1000.             (match_operand:SI 2 "general_operand" "g")))]
  1001.     ;; Operand 2 not really used on the m68000.
  1002. !   "(! flag_pic || flag_pic >= 3)"
  1003.     "*
  1004.   #ifdef MOTOROLA
  1005. ***************
  1006. *** 4720,4724 ****
  1007.             (match_operand:SI 2 "general_operand" "g")))]
  1008.     ;; Operand 2 not really used on the m68000.
  1009. !   "flag_pic"
  1010.     "*
  1011.     return \"jsr %1\";
  1012. --- 4726,4730 ----
  1013.             (match_operand:SI 2 "general_operand" "g")))]
  1014.     ;; Operand 2 not really used on the m68000.
  1015. !   "(flag_pic && flag_pic < 3)"
  1016.     "*
  1017.     return \"jsr %1\";
  1018. diff -r2cN gcc-2.3.3/config/t-amigados my-gcc-2.3.3/config/t-amigados
  1019. *** gcc-2.3.3/config/t-amigados
  1020. --- my-gcc-2.3.3/config/t-amigados    Sat Nov 28 22:25:13 1992
  1021. ***************
  1022. *** 0 ****
  1023. --- 1,81 ----
  1024. + # compilation rules for target amigados. We generate two additional things:
  1025. + # libngcc.a: a `normal' library, the automatically generated libgcc.a is
  1026. + #            base relative (which is the right thing, since it's used to
  1027. + #         generate further generations of compilers).
  1028. + # gccs:         a gcc calling ssytem() instead of forking. This makes it more
  1029. + #         system conformant, at the cost of reduced functionality (no
  1030. + #         -pipe option).
  1031. + 
  1032. + # the provided file is POSIX compliant
  1033. + LIMITS_H =
  1034. + 
  1035. + # we don't need a libgcc1, it's all in ixemul.library
  1036. + LIBGCC1 = libgcc1.null
  1037. + 
  1038. + # use flags that don't generate base relative objects. So -resident
  1039. + # would be a bad idea..
  1040. + LIBNGCC2_CFLAGS = -O2 $(INTERNAL_CFLAGS) $(CFLAGS) -B./
  1041. + 
  1042. + # this is later copied into gcc:compilers/amiga/<version>/libgcc.a, whereas
  1043. + # libgcc.a is copied into gcc:blib/libgcc.a, which is searched first if we're
  1044. + # compiling/linking base relative
  1045. + EXTRA_PARTS = libngcc.a
  1046. + 
  1047. + # this includes the knowledge that target amigados doesn't need 
  1048. + # libgcc1.a at all
  1049. + libngcc.a: libgcc2.c libgcc2.ready $(CONFIG_H) $(LIB2FUNCS_EXTRA) \
  1050. +    longlong.h gbl-ctors.h config.status
  1051. + # Actually build it in tmplibngcc.a, then rename at end,
  1052. + # so that libngcc.a itself remains nonexistent if compilation is aborted.
  1053. +     -rm -f tmplibngcc.a
  1054. + # -e causes any failing command to make this rule fail.
  1055. + # -e doesn't work in certain shells, so we test $$? as well.
  1056. +     set -e; \
  1057. +     for name in $(LIB2FUNCS); \
  1058. +     do \
  1059. +       echo $${name}; \
  1060. +       $(GCC_FOR_TARGET) $(LIBNGCC2_CFLAGS) $(INCLUDES) -c -DL$${name} \
  1061. +           $(srcdir)/libgcc2.c -o $${name}.o; \
  1062. +       if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1063. +       $(AR) $(AR_FLAGS) tmplibngcc.a $${name}.o; \
  1064. +       rm -f $${name}.o; \
  1065. +     done
  1066. + # Some shells crash when a loop has no items.
  1067. + # So make sure there is always at least one--`..'.
  1068. + # Then ignore it.
  1069. + # We don't use -e here because there are if statements
  1070. + # that should not make the command give up when the if condition is false.
  1071. + # Instead, we test for failure after each command where it matters.
  1072. +     -for file in .. $(LIB2FUNCS_EXTRA); \
  1073. +     do \
  1074. +       if [ x$${file} != x.. ]; then \
  1075. +         name=`echo $${file} | sed -e 's/[.]c$$//' -e 's/[.]asm$$//'`; \
  1076. +         echo $${name}; \
  1077. +         if [ $${name}.asm = $${file} ]; then \
  1078. +           cp $${file} $${name}.s; file=$${name}.s; \
  1079. +           if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1080. +         else true; fi; \
  1081. +         $(GCC_FOR_TARGET) $(LIBGCC2_CFLAGS) $(INCLUDES) -c $${file}; \
  1082. +         if [ $$? -eq 0 ] ; then true; else exit 1; fi; \
  1083. +         $(AR) $(AR_FLAGS) tmplibngcc.a $${name}.o; \
  1084. +         rm -f $${name}.[so]; \
  1085. +       else true; \
  1086. +       fi; \
  1087. +     done
  1088. +     mv tmplibngcc.a libngcc.a
  1089. +     ranlib libngcc.a
  1090. + 
  1091. + T_CPPFLAGS = -DAMIGADOS_FORK_GCC
  1092. + # the default gcc (xgcc) specifies -DAMIGADOS_FORK_GCC. This gcc (gccs) does not.
  1093. + EXTRA_PASSES = gccs
  1094. + 
  1095. + gccs: gccs.o version.o $(LIBDEPS)
  1096. +     $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o gccs gccs.o version.o $(LIBS)
  1097. + 
  1098. + # omit the T_CPPFLAGS here on purpose to get rid of -DAMIGADOS_FORK_GCC
  1099. + gccs.o: gcc.c $(CONFIG_H) gvarargs.h obstack.h
  1100. +     $(CC) $(ALL_CFLAGS) $(CPPFLAGS) $(X_CPPFLAGS) $(INCLUDES) \
  1101. +   -DSTANDARD_STARTFILE_PREFIX=\"$(libdir)/\" \
  1102. +   -DSTANDARD_EXEC_PREFIX=\"$(libdir)/gcc-lib/\" \
  1103. +   -DDEFAULT_TARGET_MACHINE=\"$(target)\" \
  1104. +   -c `echo $(srcdir)/gcc.c | sed 's,^\./,,'` -o gccs.o
  1105. diff -r2cN gcc-2.3.3/config/x-amigados my-gcc-2.3.3/config/x-amigados
  1106. *** gcc-2.3.3/config/x-amigados
  1107. --- my-gcc-2.3.3/config/x-amigados    Sat Nov 28 22:25:15 1992
  1108. ***************
  1109. *** 0 ****
  1110. --- 1,50 ----
  1111. + # building under amigados requires an already working gcc. You can of course
  1112. + # try to reinvent the wheel, get sun2manx and try to do a crosscompile from a
  1113. + # sun3, like I did some years ago...
  1114. + CC = gccv # this is a gcc compiled with AMIGADOS_FORK_GCC
  1115. + # if your gcc has not been compiled with -DAMIGADOS_FORK_GCC, then don't use
  1116. + # -pipe! (see also t-amigados !)
  1117. + # The -fno-builtin is necessary, or gcc uses the builtin alloca() by default,
  1118. + # and we can't undef it for cpp
  1119. + X_CFLAGS = -O2 -resident -pipe -fno-builtin
  1120. + 
  1121. + exec_prefix = gcc:compilers
  1122. + bindir = gcc:bin
  1123. + libdir = gcc:lib
  1124. + manext = .0
  1125. + mandir = gcc:man/man1
  1126. + 
  1127. + # don't compile with debugging, as long as there is no debugger...
  1128. + LIBGCC2_CFLAGS = -O2 $(GCC_CFLAGS)
  1129. + 
  1130. + # we really shouldn't specify CFLAGS from here, but there's no other way
  1131. + # to get rid of the `-g' indoctrinated by Makefile.in...
  1132. + CFLAGS =
  1133. + 
  1134. + RANLIB_TEST = true
  1135. + RANLIB = ranlib
  1136. + 
  1137. + # override the default compilation rule for libgcc.a, since the original
  1138. + # rule doesn't work well with the amigados ksh (the subshell cd'ing into
  1139. + # tmplibgcc is still running when the rm -fr tmplibgcc is started, and at
  1140. + # that point trying to remove the directory fails because the previous
  1141. + # process still keeps a lock (its current directory) to that directory).
  1142. + 
  1143. + # Combine the various libraries into a single library, libgcc.a.
  1144. + libgcc.a: $(LIBGCC1) $(LIBGCC2)
  1145. +     -rm -rf tmplibgcc.a libgcc.a tmpcopy
  1146. +     mkdir tmpcopy
  1147. +     -if [ x$(LIBGCC1) != x ];            \
  1148. +     then (cd tmpcopy; $(AR) x ../$(LIBGCC1));    \
  1149. +     else true;                    \
  1150. +     fi
  1151. + # the cd .. make sure there's no lock left on tmpcopy (this is actually a
  1152. + # bug in ixemul.library, but I can't get around it currently because it
  1153. + # involves an OS bug which is beyond my capabilities to fix...)
  1154. +     (cd tmpcopy; $(AR) x ../$(LIBGCC2); cd ..; /c/wait 2)
  1155. +     (cd tmpcopy; $(AR) $(AR_FLAGS) ../tmplibgcc.a *.o; cd ..; /c/wait 2)
  1156. +     rm -rf tmpcopy
  1157. +     -if $(RANLIB_TEST) ; then $(RANLIB) tmplibgcc.a; else true; fi
  1158. + # Actually build it in tmplibgcc.a, then rename at end,
  1159. + # so that libgcc.a itself remains nonexistent if compilation is aborted.
  1160. +     mv tmplibgcc.a libgcc.a
  1161. diff -r2cN gcc-2.3.3/config/xm-amigados.h my-gcc-2.3.3/config/xm-amigados.h
  1162. *** gcc-2.3.3/config/xm-amigados.h
  1163. --- my-gcc-2.3.3/config/xm-amigados.h    Sat Nov 28 22:25:17 1992
  1164. ***************
  1165. *** 0 ****
  1166. --- 1,234 ----
  1167. + /*  Configuration for GNU C-compiler for Commodore Amiga, running AmigaDOS.
  1168. +    Copyright (C) 1992 Free Software Foundation, Inc.
  1169. +    Contributed by Markus M. Wild (wild@amiga.physik.unizh.ch).
  1170. + 
  1171. + This file is part of GNU CC.
  1172. + 
  1173. + GNU CC is free software; you can redistribute it and/or modify
  1174. + it under the terms of the GNU General Public License as published by
  1175. + the Free Software Foundation; either version 2, or (at your option)
  1176. + any later version.
  1177. + 
  1178. + GNU CC is distributed in the hope that it will be useful,
  1179. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  1180. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  1181. + GNU General Public License for more details.
  1182. + 
  1183. + You should have received a copy of the GNU General Public License
  1184. + along with GNU CC; see the file COPYING.  If not, write to
  1185. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  1186. + 
  1187. + /* first include the generic header, then modify some parts.. */
  1188. + 
  1189. + #include "xm-m68k.h"
  1190. + 
  1191. + #undef GCC_INCLUDE_DIR
  1192. + #define GCC_INCLUDE_DIR ":GCC_INCLUDE_DIR is not used under AmigaDOS!:"
  1193. + 
  1194. + /* use this list of header files instead of the Unix'ish default */
  1195. + #define INCLUDE_DEFAULTS \
  1196. + {                                    \
  1197. +   { "gcc:g++-include", 1},                        \
  1198. +   { "gcc:gcc-include", 0}, /* gcc-specific changes to system headers. none currently.. */ \
  1199. +   { "gcc:os-include", 0},  /* here go amiga specific headers */     \
  1200. +   { "gcc:include", 0},     /* here go the usual headers */         \
  1201. +   { 0, 0}                                \
  1202. + }
  1203. + 
  1204. + 
  1205. + /* here live the compiler passes like cc1, cc1plus, cpp etc */
  1206. + #undef STANDARD_EXEC_PREFIX
  1207. + #define STANDARD_EXEC_PREFIX "gcc:compilers/"
  1208. + 
  1209. + /* here live (%|b|r)crt0.o and different flavors of link-libraries */
  1210. + #undef STANDARD_STARTFILE_PREFIX
  1211. + #define STANDARD_STARTFILE_PREFIX "gcc:lib/"
  1212. + 
  1213. + /* the `compilers' place looks better, since we have the machine/version tree
  1214. +    there, and not in `lib'. */
  1215. + #undef STD_PROTO_DIR
  1216. + #define STD_PROTO_DIR STANDARD_EXEC_PREFIX
  1217. + 
  1218. + /* Fork one piped subcommand.  SEARCH_FLAG is the system call to use
  1219. +    (either execv or execvp).  ARGV is the arg vector to use.
  1220. +    NOT_LAST is nonzero if this is not the last subcommand
  1221. +    (i.e. its output should be piped to the next one.)  */
  1222. + 
  1223. + #ifndef AMIGADOS_FORK_GCC
  1224. + /* this version uses a more or less amigados-conformant way of running a
  1225. +    program (in the context of the parent). If you want to use -pipe however,
  1226. +    you'll have to use the vfork() version afterwards. */
  1227. + 
  1228. + #define PEXECUTE(SEARCH_FLAG,PROGRAM,ARGV,NOT_LAST) \
  1229. + ({char *_argline;                        \
  1230. +   int _arglinelength, _i;                    \
  1231. +                                 \
  1232. +   for (_i = 1, _arglinelength=0; ARGV[_i]; ++_i)        \
  1233. +     _arglinelength += strlen(ARGV[_i]) + 1;            \
  1234. +                                 \
  1235. +   _arglinelength += strlen(PROGRAM) + 1;            \
  1236. +                                 \
  1237. +   if (!(_argline = (char *)alloca(_arglinelength)))         \
  1238. +     pfatal_with_name ("alloca");                \
  1239. +                                 \
  1240. +   strcpy(_argline, PROGRAM);                    \
  1241. +   for (_i = 1; ARGV[_i]; ++_i)                     \
  1242. +     {                                \
  1243. +       strcat(_argline, " ");                    \
  1244. +       strcat(_argline, ARGV[_i]);                \
  1245. +     }                                \
  1246. +                                 \
  1247. +   ssystem(_argline); })                        \
  1248. + 
  1249. + #define PEXECUTE_RESULT(STATUS, COMMAND) \
  1250. +   ({ STATUS = COMMAND.pid; })
  1251. + 
  1252. + #else
  1253. + 
  1254. + /* the vfork() version. This one has the drawback, that gcc is not 
  1255. +    interruptible when started from make, since ixemul.library doesn't yet
  1256. +    propagate ^C to subprocesses. */
  1257. + 
  1258. + #define PEXECUTE(SEARCH_FLAG,PROGRAM,ARGV,NOT_LAST) \
  1259. + ({int (*_func)() = (SEARCH_FLAG ? execv : execvp);            \
  1260. +   int _pid;                                \
  1261. +   int _pdes[2];                                \
  1262. +   int _input_desc = last_pipe_input;                    \
  1263. +   int _output_desc = STDOUT_FILE_NO;                    \
  1264. +   int _retries, _sleep_interval, _result;                \
  1265. +                                     \
  1266. +   /* If this isn't the last process, make a pipe for its output,    \
  1267. +      and record it as waiting to be the input to the next process.  */    \
  1268. +                                     \
  1269. +   if (NOT_LAST)                                \
  1270. +     {                                    \
  1271. +       if (pipe (_pdes) < 0)                        \
  1272. +     pfatal_with_name ("pipe");                    \
  1273. +       _output_desc = _pdes[WRITE_PORT];                    \
  1274. +       last_pipe_input = _pdes[READ_PORT];                \
  1275. +     }                                    \
  1276. +   else                                    \
  1277. +     last_pipe_input = STDIN_FILE_NO;                    \
  1278. +                                     \
  1279. +   /* Fork a subprocess; wait and retry if it fails.  */            \
  1280. +   _sleep_interval = 1;                            \
  1281. +   for (_retries = 0; _retries < 4; _retries++)                \
  1282. +     {                                    \
  1283. +       _pid = vfork ();                            \
  1284. +       if (_pid >= 0)                            \
  1285. +     break;                                \
  1286. +       sleep (_sleep_interval);                        \
  1287. +       _sleep_interval *= 2;                        \
  1288. +     }                                    \
  1289. +                                     \
  1290. +   switch (_pid)                                \
  1291. +     {                                    \
  1292. +     case -1:                                \
  1293. +       pfatal_with_name ("vfork");                    \
  1294. +       /* NOTREACHED */                            \
  1295. +       _result = 0;                            \
  1296. +       break;                                \
  1297. +                                     \
  1298. +     case 0: /* child */                            \
  1299. +       /* Move the input and output pipes into place, if nec.  */    \
  1300. +       if (_input_desc != STDIN_FILE_NO)                    \
  1301. +     {                                \
  1302. +       close (STDIN_FILE_NO);                    \
  1303. +       dup (_input_desc);                        \
  1304. +       close (_input_desc);                        \
  1305. +     }                                \
  1306. +       if (_output_desc != STDOUT_FILE_NO)                \
  1307. +     {                                \
  1308. +       close (STDOUT_FILE_NO);                    \
  1309. +       dup (_output_desc);                        \
  1310. +       close (_output_desc);                        \
  1311. +     }                                \
  1312. +                                     \
  1313. +       /* Close the parent's descs that aren't wanted here.  */        \
  1314. +       if (last_pipe_input != STDIN_FILE_NO)                \
  1315. +     close (last_pipe_input);                    \
  1316. +                                     \
  1317. +       /* Exec the program.  */                        \
  1318. +       (*_func) (PROGRAM, ARGV);                        \
  1319. +       perror_exec (PROGRAM);                        \
  1320. +       exit (-1);                            \
  1321. +       /* NOTREACHED */                            \
  1322. +       _result = 0;                            \
  1323. +       break;                                \
  1324. +                                     \
  1325. +     default:                                \
  1326. +       /* In the parent, after forking.                    \
  1327. +      Close the descriptors that we made for this child.  */        \
  1328. +       if (_input_desc != STDIN_FILE_NO)                    \
  1329. +     close (_input_desc);                        \
  1330. +       if (_output_desc != STDOUT_FILE_NO)                \
  1331. +     close (_output_desc);                        \
  1332. +                                     \
  1333. +       /* Return child's process number.  */                \
  1334. +       _result = _pid;                            \
  1335. +       break;                                \
  1336. +     }                                     \
  1337. + _result; })                                \
  1338. + 
  1339. + #define PEXECUTE_RESULT(STATUS, COMMAND) \
  1340. +   ({ wait (& STATUS); })
  1341. + 
  1342. + #endif /* AMIGADOS_FORK_GCC */
  1343. + 
  1344. + /* the following macros are stolen more or less from xm-vms.h ... */
  1345. + 
  1346. + /* This macro is used to help compare filenames in cp-lex.c.
  1347. + 
  1348. +    We also need to make sure that the names are all lower case, because
  1349. +    we must be able to compare filenames to determine if a file implements
  1350. +    a class.  */
  1351. + 
  1352. + #define FILE_NAME_NONDIRECTORY(C)                \
  1353. + ({                                \
  1354. +    char * pnt_ = (C), * pnt1_;                    \
  1355. +    pnt1_ = pnt_ - 1;                        \
  1356. +    while (*++pnt1_)                        \
  1357. +      if ((*pnt1_ >= 'A' && *pnt1_ <= 'Z')) *pnt1_ |= 0x20;    \
  1358. +    pnt1_ = rindex (pnt_, '/');                     \
  1359. +    pnt1_ = (pnt1_ == 0 ? rindex (pnt_, ':') : pnt1_);        \
  1360. +    (pnt1_ == 0 ? pnt_ : pnt1_ + 1);                \
  1361. +  })
  1362. + 
  1363. + /* Macro to generate the name of the cross reference file.  The standard
  1364. +    one does not work, since it was written assuming that the conventions
  1365. +    of a unix style filesystem will work on the host system.
  1366. +  
  1367. +    Contrary to VMS, I'm using the original unix filename, there's no reason
  1368. +    not to use this under AmigaDOS. */
  1369. + 
  1370. + #define XREF_FILE_NAME(BUFF, NAME)    \
  1371. +   s = FILE_NAME_NONDIRECTORY (NAME);            \
  1372. +   if (s == NAME) sprintf(BUFF, ".%s.gxref", NAME);    \
  1373. +   else {                        \
  1374. +     unsigned char ch = *s; /* could be Latin1 char.. */    \
  1375. +     /* temporary: cut the filename from the directory */\
  1376. +     *s = 0;                        \
  1377. +     sprintf (BUFF, "%s.%c%s.gxref", NAME, ch, s+1);    \
  1378. +     /* and restore the filename */            \
  1379. +     *s = ch;                        \
  1380. +   }                            \
  1381. + 
  1382. + /* Macro that is used in cp-xref.c to determine whether a file name is
  1383. +    absolute or not.
  1384. + 
  1385. +    This checks for both, '/' as first character, since we're running under
  1386. +    ixemul.library which provides for this unix'ism, and for the usual 
  1387. +    logical-terminator, ':', somewhere in the filename. */
  1388. + 
  1389. + #define FILE_NAME_ABSOLUTE_P(NAME) (NAME[0] == '/' || index(NAME, ':'))
  1390. + 
  1391. + 
  1392. + /* the colon conflicts with the name space of logicals */
  1393. + 
  1394. + #define PATH_SEPARATOR ','
  1395. + 
  1396. + /* AmigaDOS handles rename(2) *much* better than any link(2)/unlink(2)
  1397. +    hacks. It's actually the inverse case as on Unix. rename(2) was always
  1398. +    there, link(2) is new with OS 2.0 */
  1399. + 
  1400. + #define HAVE_rename 1
  1401. diff -r2cN gcc-2.3.3/configure my-gcc-2.3.3/configure
  1402. *** gcc-2.3.3/configure    Wed Dec 30 00:12:04 1992
  1403. --- my-gcc-2.3.3/configure    Mon Dec 28 14:01:50 1992
  1404. ***************
  1405. *** 477,480 ****
  1406. --- 477,487 ----
  1407.           broken_install=yes
  1408.           ;;
  1409. +     m68k-*-amigados)
  1410. +         xm_file=xm-amigados.h
  1411. +         out_file=amigados.c
  1412. +         tm_file=amigados.h
  1413. +         tmake_file=t-amigados
  1414. +         xmake_file=x-amigados
  1415. +         ;;
  1416.       m68k-cbm-sysv4*)        # Commodore variant of V.4.
  1417.           tm_file=amix.h
  1418. diff -r2cN gcc-2.3.3/expr.c my-gcc-2.3.3/expr.c
  1419. *** gcc-2.3.3/expr.c    Sat Nov 28 22:08:51 1992
  1420. --- my-gcc-2.3.3/expr.c    Sat Nov 28 22:25:30 1992
  1421. ***************
  1422. *** 1978,1981 ****
  1423. --- 1978,1987 ----
  1424.     argvec = (struct arg *) alloca (nargs * sizeof (struct arg));
  1425.   
  1426. + /* how would you do this RIGHT ?? fake a DECL node? dunno... */
  1427. + #ifdef ENCODE_SECTION_INFO
  1428. +   /* mark it as a function (to be in the text section that is) */
  1429. +   SYMBOL_REF_FLAG (fun) = 1;
  1430. + #endif
  1431. + 
  1432.     INIT_CUMULATIVE_ARGS (args_so_far, (tree)0, fun);
  1433.   
  1434. diff -r2cN gcc-2.3.3/gcc.c my-gcc-2.3.3/gcc.c
  1435. *** gcc-2.3.3/gcc.c    Wed Dec 30 00:12:54 1992
  1436. --- my-gcc-2.3.3/gcc.c    Mon Dec 28 14:02:56 1992
  1437. ***************
  1438. *** 105,109 ****
  1439. --- 105,113 ----
  1440.   
  1441.   extern int errno, sys_nerr;
  1442. + #ifndef HAVE_STRERROR
  1443. + /* provide a cheap strerror() emulator for those that don't have it */
  1444.   extern char *sys_errlist[];
  1445. + #define strerror(err) sys_errlist[err]
  1446. + #endif
  1447.   
  1448.   extern int execv (), execvp ();
  1449. ***************
  1450. *** 1127,1130 ****
  1451. --- 1131,1137 ----
  1452.         if (base == (char *)0)
  1453.       {
  1454. + #ifdef amigados
  1455. +       base = "ram:";
  1456. + #else
  1457.         if (access ("/usr/tmp", R_OK | W_OK) == 0)
  1458.           base = "/usr/tmp/";
  1459. ***************
  1460. *** 1131,1134 ****
  1461. --- 1138,1142 ----
  1462.         else
  1463.           base = "/tmp/";
  1464. + #endif
  1465.       }
  1466.       }
  1467. ***************
  1468. *** 1137,1143 ****
  1469.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  1470.     strcpy (temp_filename, base);
  1471. !   if (len > 0 && temp_filename[len-1] != '/')
  1472. !     temp_filename[len++] = '/';
  1473. !   strcpy (temp_filename + len, "ccXXXXXX");
  1474.   
  1475.     mktemp (temp_filename);
  1476. --- 1145,1153 ----
  1477.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  1478.     strcpy (temp_filename, base);
  1479. !   if (len > 0 && temp_filename[len-1] != '/'
  1480. ! #ifdef amigados
  1481. !                         && temp_filename[len-1] != ':'
  1482. ! #endif
  1483. !                                     )
  1484.   
  1485.     mktemp (temp_filename);
  1486. ***************
  1487. *** 1211,1214 ****
  1488. --- 1221,1225 ----
  1489.     int first_time = TRUE;
  1490.     struct prefix_list *pprefix;
  1491. +   char path_sep[] = { PATH_SEPARATOR, 0 };
  1492.   
  1493.     obstack_grow (&collect_obstack, env_var, strlen (env_var));
  1494. ***************
  1495. *** 1221,1225 ****
  1496.       {
  1497.         if (!first_time)
  1498. !         obstack_grow (&collect_obstack, ":", 1);
  1499.           
  1500.         first_time = FALSE;
  1501. --- 1232,1236 ----
  1502.       {
  1503.         if (!first_time)
  1504. !         obstack_grow (&collect_obstack, path_sep, 1);
  1505.           
  1506.         first_time = FALSE;
  1507. ***************
  1508. *** 1231,1235 ****
  1509.       {
  1510.         if (!first_time)
  1511. !         obstack_grow (&collect_obstack, ":", 1);
  1512.           
  1513.         first_time = FALSE;
  1514. --- 1242,1246 ----
  1515.       {
  1516.         if (!first_time)
  1517. !         obstack_grow (&collect_obstack, path_sep, 1);
  1518.           
  1519.         first_time = FALSE;
  1520. ***************
  1521. *** 1241,1245 ****
  1522.       {
  1523.         if (!first_time)
  1524. !         obstack_grow (&collect_obstack, ":", 1);
  1525.   
  1526.         first_time = FALSE;
  1527. --- 1252,1256 ----
  1528.       {
  1529.         if (!first_time)
  1530. !         obstack_grow (&collect_obstack, path_sep, 1);
  1531.   
  1532.         first_time = FALSE;
  1533. ***************
  1534. *** 1274,1278 ****
  1535.     /* Determine the filename to execute (special case for absolute paths).  */
  1536.   
  1537. !   if (*name == '/')
  1538.       {
  1539.         if (access (name, mode))
  1540. --- 1285,1293 ----
  1541.     /* Determine the filename to execute (special case for absolute paths).  */
  1542.   
  1543. !   if (*name == '/'
  1544. ! #ifdef amigados
  1545. !           || index (name, ':')
  1546. ! #endif
  1547. !                     )
  1548.       {
  1549.         if (access (name, mode))
  1550. ***************
  1551. *** 1480,1483 ****
  1552. --- 1495,1499 ----
  1553.      (i.e. its output should be piped to the next one.)  */
  1554.   
  1555. + #ifndef PEXECUTE
  1556.   #ifndef OS2
  1557.   #ifdef __MSDOS__
  1558. ***************
  1559. *** 1626,1629 ****
  1560. --- 1642,1646 ----
  1561.   }
  1562.   #endif /* not OS2 */
  1563. + #endif /* !defined (PEXECUTE) */
  1564.   
  1565.   /* Execute the command specified by the arguments on the current line of spec.
  1566. ***************
  1567. *** 1720,1726 ****
  1568. --- 1737,1749 ----
  1569.         char *string = commands[i].argv[0];
  1570.   
  1571. + #ifdef PEXECUTE
  1572. +       commands[i].pid = PEXECUTE (string != commands[i].prog,
  1573. +                   string, commands[i].argv,
  1574. +                   i + 1 < n_commands);
  1575. + #else
  1576.         commands[i].pid = pexecute (string != commands[i].prog,
  1577.                     string, commands[i].argv,
  1578.                     i + 1 < n_commands);
  1579. + #endif
  1580.   
  1581.         if (string != commands[i].prog)
  1582. ***************
  1583. *** 1743,1746 ****
  1584. --- 1766,1772 ----
  1585.       char *prog;
  1586.   
  1587. + #ifdef PEXECUTE_RESULT
  1588. +     pid = PEXECUTE_RESULT (status, commands[i]);
  1589. + #else /* PEXECUTE_RESULT */
  1590.   #ifdef __MSDOS__
  1591.           status = pid = commands[i].pid;
  1592. ***************
  1593. *** 1748,1751 ****
  1594. --- 1774,1778 ----
  1595.       pid = wait (&status);
  1596.   #endif
  1597. + #endif /* PEXECUTE_RESULT */
  1598.       if (pid < 0)
  1599.         abort ();
  1600. ***************
  1601. *** 1854,1857 ****
  1602. --- 1881,1885 ----
  1603.           {
  1604.             strncpy (nstore, startp, endp-startp);
  1605. + #ifndef amigados
  1606.             if (endp == startp)
  1607.           {
  1608. ***************
  1609. *** 1865,1868 ****
  1610. --- 1893,1905 ----
  1611.             else
  1612.           nstore[endp-startp] = 0;
  1613. + #else
  1614. +           if (endp[-1] != '/' && endp[-1] != ':')
  1615. +         {
  1616. +           nstore[endp-startp] = '/';
  1617. +           nstore[endp-startp+1] = 0;
  1618. +         }
  1619. +           else
  1620. +         nstore[endp-startp] = 0;
  1621. + #endif
  1622.             add_prefix (&exec_prefix, nstore, 0, 0, NULL_PTR);
  1623.             if (*endp == 0)
  1624. ***************
  1625. *** 1887,1890 ****
  1626. --- 1924,1928 ----
  1627.           {
  1628.             strncpy (nstore, startp, endp-startp);
  1629. + #ifndef amigados
  1630.             if (endp == startp)
  1631.           {
  1632. ***************
  1633. *** 1898,1901 ****
  1634. --- 1936,1948 ----
  1635.             else
  1636.           nstore[endp-startp] = 0;
  1637. + #else
  1638. +           if (endp[-1] != '/' && endp[-1] != ':')
  1639. +         {
  1640. +           nstore[endp-startp] = '/';
  1641. +           nstore[endp-startp+1] = 0;
  1642. +         }
  1643. +           else
  1644. +         nstore[endp-startp] = 0;
  1645. + #endif
  1646.             add_prefix (&startfile_prefix, nstore, 0, 0, NULL_PTR);
  1647.             /* Make separate list of dirs that came from LIBRARY_PATH.  */
  1648. ***************
  1649. *** 1923,1926 ****
  1650. --- 1970,1974 ----
  1651.           {
  1652.             strncpy (nstore, startp, endp-startp);
  1653. + #ifndef amigados
  1654.             if (endp == startp)
  1655.           {
  1656. ***************
  1657. *** 1934,1937 ****
  1658. --- 1982,1994 ----
  1659.             else
  1660.           nstore[endp-startp] = 0;
  1661. + #else
  1662. +           if (endp[-1] != '/' && endp[-1] != ':')
  1663. +         {
  1664. +           nstore[endp-startp] = '/';
  1665. +           nstore[endp-startp+1] = 0;
  1666. +         }
  1667. +           else
  1668. +         nstore[endp-startp] = 0;
  1669. + #endif
  1670.             add_prefix (&startfile_prefix, nstore, 0, 0, NULL_PTR);
  1671.             /* Make separate list of dirs that came from LIBRARY_PATH.  */
  1672. ***************
  1673. *** 3434,3437 ****
  1674. --- 3491,3497 ----
  1675.         int len;
  1676.   
  1677. + #ifdef FILE_NAME_NONDIRECTORY
  1678. +       input_basename = FILE_NAME_NONDIRECTORY (input_filename);
  1679. + #else
  1680.         input_basename = input_filename;
  1681.         for (p = input_filename; *p; p++)
  1682. ***************
  1683. *** 3438,3441 ****
  1684. --- 3498,3502 ----
  1685.           if (*p == '/')
  1686.             input_basename = p + 1;
  1687. + #endif
  1688.   
  1689.         /* Find a suffix starting with the last period,
  1690. ***************
  1691. *** 3676,3680 ****
  1692.   
  1693.     if (errno < sys_nerr)
  1694. !     s = concat ("%s: ", sys_errlist[errno], "");
  1695.     else
  1696.       s = "cannot open %s";
  1697. --- 3737,3741 ----
  1698.   
  1699.     if (errno < sys_nerr)
  1700. !     s = concat ("%s: ", strerror (errno), "");
  1701.     else
  1702.       s = "cannot open %s";
  1703. ***************
  1704. *** 3689,3693 ****
  1705.   
  1706.     if (errno < sys_nerr)
  1707. !     s = concat ("%s: ", sys_errlist[errno], "");
  1708.     else
  1709.       s = "cannot open %s";
  1710. --- 3750,3754 ----
  1711.   
  1712.     if (errno < sys_nerr)
  1713. !     s = concat ("%s: ", strerror (errno), "");
  1714.     else
  1715.       s = "cannot open %s";
  1716. ***************
  1717. *** 3703,3707 ****
  1718.     if (errno < sys_nerr)
  1719.       s = concat ("installation problem, cannot exec %s: ",
  1720. !         sys_errlist[errno], "");
  1721.     else
  1722.       s = "installation problem, cannot exec %s";
  1723. --- 3764,3768 ----
  1724.     if (errno < sys_nerr)
  1725.       s = concat ("installation problem, cannot exec %s: ",
  1726. !         strerror (errno), "");
  1727.     else
  1728.       s = "installation problem, cannot exec %s";
  1729. diff -r2cN gcc-2.3.3/genconfig.c my-gcc-2.3.3/genconfig.c
  1730. *** gcc-2.3.3/genconfig.c    Tue Oct 13 04:11:48 1992
  1731. --- my-gcc-2.3.3/genconfig.c    Sat Nov 28 22:30:40 1992
  1732. ***************
  1733. *** 304,309 ****
  1734. --- 304,317 ----
  1735.   from the machine description file `md'.  */\n\n");
  1736.   
  1737. + #ifdef amigados
  1738. +   /* this constant probably better be 14 in general, or a cross compiling
  1739. +      host might choke on some amigados header files... */
  1740. + 
  1741. +   /* Allow at least 14 operands for the sake of asm constructs.  */
  1742. +   max_recog_operands = 14;
  1743. + #else
  1744.     /* Allow at least 10 operands for the sake of asm constructs.  */
  1745.     max_recog_operands = 9;  /* We will add 1 later.  */
  1746. + #endif
  1747.     max_dup_operands = 1;
  1748.   
  1749. diff -r2cN gcc-2.3.3/gstdarg.h my-gcc-2.3.3/gstdarg.h
  1750. *** gcc-2.3.3/gstdarg.h    Sat Nov 28 22:09:30 1992
  1751. --- my-gcc-2.3.3/gstdarg.h    Sun Nov 29 19:23:11 1992
  1752. ***************
  1753. *** 1,141 ****
  1754. - /* stdarg.h for GNU.
  1755. -    Note that the type used in va_arg is supposed to match the
  1756. -    actual type **after default promotions**.
  1757. -    Thus, va_arg (..., short) is not valid.  */
  1758. - 
  1759. - #ifndef _STDARG_H
  1760. - #ifndef _ANSI_STDARG_H_
  1761. - #ifndef __need___va_list
  1762. - #define _STDARG_H
  1763. - #define _ANSI_STDARG_H_
  1764. - #endif /* not __need___va_list */
  1765. - #undef __need___va_list
  1766. - 
  1767. - #ifndef __GNUC__
  1768. - /* Use the system's macros with the system's compiler.
  1769. -    This is relevant only when building GCC with some other compiler.  */
  1770.   #include <stdarg.h>
  1771. - #else
  1772. - #ifdef __m88k__
  1773. - #include <va-m88k.h>
  1774. - #else
  1775. - #ifdef __i860__
  1776. - #include <va-i860.h>
  1777. - #else
  1778. - #ifdef __hppa__
  1779. - #include <va-pa.h>
  1780. - #else
  1781. - #ifdef __mips__
  1782. - #include <va-mips.h>
  1783. - #else
  1784. - #ifdef __sparc__
  1785. - #include <va-sparc.h>
  1786. - #else
  1787. - #ifdef __i960__
  1788. - #include <va-i960.h>
  1789. - #else
  1790. - #ifdef __alpha__
  1791. - #include <va-alpha.h>
  1792. - #else
  1793. - 
  1794. - /* Define __gnuc_va_list.  */
  1795. - 
  1796. - #ifndef __GNUC_VA_LIST
  1797. - #define __GNUC_VA_LIST
  1798. - #if defined(__svr4__) || defined(_AIX) || defined(_M_UNIX)
  1799. - typedef char *__gnuc_va_list;
  1800. - #else
  1801. - typedef void *__gnuc_va_list;
  1802. - #endif
  1803. - #endif
  1804. - 
  1805. - /* Define the standard macros for the user,
  1806. -    if this invocation was from the user program.  */
  1807. - #ifdef _STDARG_H
  1808. - 
  1809. - /* Amount of space required in an argument list for an arg of type TYPE.
  1810. -    TYPE may alternatively be an expression whose type is used.  */
  1811. - 
  1812. - #define __va_rounded_size(TYPE)  \
  1813. -   (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
  1814. - 
  1815. - #define va_start(AP, LASTARG)                         \
  1816. -  (AP = ((__gnuc_va_list) __builtin_next_arg ()))
  1817. - 
  1818. - #undef va_end
  1819. - void va_end (__gnuc_va_list);        /* Defined in libgcc.a */
  1820. - #define va_end(AP)
  1821. - 
  1822. - /* We cast to void * and then to TYPE * because this avoids
  1823. -    a warning about increasing the alignment requirement.  */
  1824. - 
  1825. - #if defined (__arm__) || defined (__i386__) || defined (__ns32000__) || defined (__vax__)
  1826. - /* This is for little-endian machines; small args are padded upward.  */
  1827. - #define va_arg(AP, TYPE)                        \
  1828. -  (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)),    \
  1829. -   *((TYPE *) (void *) ((char *) (AP) - __va_rounded_size (TYPE))))
  1830. - #else /* big-endian */
  1831. - /* This is for big-endian machines; small args are padded downward.  */
  1832. - #define va_arg(AP, TYPE)                        \
  1833. -  (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)),    \
  1834. -   *((TYPE *) (void *) ((char *) (AP) - ((sizeof (TYPE) < 4        \
  1835. -                      ? sizeof (TYPE)        \
  1836. -                      : __va_rounded_size (TYPE))))))
  1837. - #endif /* big-endian */
  1838. - #endif /* _STDARG_H */
  1839. - 
  1840. - #endif /* not alpha */
  1841. - #endif /* not i960 */
  1842. - #endif /* not sparc */
  1843. - #endif /* not mips */
  1844. - #endif /* not hppa */
  1845. - #endif /* not i860 */
  1846. - #endif /* not m88k */
  1847. - 
  1848. - #ifdef _STDARG_H
  1849. - /* Define va_list, if desired, from __gnuc_va_list. */
  1850. - /* We deliberately do not define va_list when called from
  1851. -    stdio.h, because ANSI C says that stdio.h is not supposed to define
  1852. -    va_list.  stdio.h needs to have access to that data type, 
  1853. -    but must not use that name.  It should use the name __gnuc_va_list,
  1854. -    which is safe because it is reserved for the implementation.  */
  1855. - 
  1856. - #ifdef _HIDDEN_VA_LIST  /* On OSF1, this means varargs.h is "half-loaded".  */
  1857. - #undef _VA_LIST
  1858. - #endif
  1859. - 
  1860. - #ifdef _BSD_VA_LIST
  1861. - #undef _BSD_VA_LIST
  1862. - #endif
  1863. - 
  1864. - #ifdef __SVR4_2__
  1865. - /* SVR4.2 uses _VA_LIST for an internal alias for va_list,
  1866. -    so we must avoid testing it and setting it here.  */
  1867. - #ifndef _VA_LIST_
  1868. - #define _VA_LIST_
  1869. - typedef __gnuc_va_list va_list;
  1870. - #endif /* _VA_LIST_ */
  1871. - #else /* not __SVR4_2__ */
  1872. - 
  1873. - /* The macro _VA_LIST_ is the same thing used by this file in Ultrix.
  1874. -    But on BSD NET2 we must not test or define or undef it.
  1875. -    (Note that the comments in NET 2's ansi.h
  1876. -    are incorrect for _VA_LIST_--see stdio.h!)  */
  1877. - #if !defined (_VA_LIST_) || defined (__BSD_NET2__) || defined (____386BSD____)
  1878. - /* The macro _VA_LIST is used in SCO Unix 3.2.  */
  1879. - #ifndef _VA_LIST
  1880. - #if !(defined (__BSD_NET2__) || defined (____386BSD____))
  1881. - #define _VA_LIST_
  1882. - #endif
  1883. - #define _VA_LIST
  1884. - typedef __gnuc_va_list va_list;
  1885. - #endif /* not _VA_LIST */
  1886. - #endif /* not _VA_LIST_ */
  1887. - 
  1888. - #endif /* not __SVR4_2__ */
  1889. - 
  1890. - #endif /* _STDARG_H */
  1891. - 
  1892. - #endif /* __GNUC__ */
  1893. - #endif /* not _ANSI_STDARG_H_ */
  1894. - #endif /* not _STDARG_H */
  1895. --- 1 ----
  1896. diff -r2cN gcc-2.3.3/gstddef.h my-gcc-2.3.3/gstddef.h
  1897. *** gcc-2.3.3/gstddef.h    Sat Nov 28 22:09:32 1992
  1898. --- my-gcc-2.3.3/gstddef.h    Sat Nov 28 22:30:42 1992
  1899. ***************
  1900. *** 3,6 ****
  1901. --- 3,20 ----
  1902.   #ifndef _ANSI_STDDEF_H
  1903.   
  1904. + #ifdef amigados
  1905. + /* GNU libc has special support in this file, 4.3bsd-net2 libc deserves that
  1906. +    just as well. The system headers are ANSI compliant, the used compiler IS
  1907. +    gcc, so it's really ok to use the system header, no reason to hassle
  1908. +    with a jungle of ifdefs. Besides, amigados is only defined if compiling
  1909. +    with host=amigados, it doesn't apply if compiling with target=amigados
  1910. +    on a different host with possibly different system headers. Same thing
  1911. +    would apply to gstdarg.h and gvarargs.h, but those headers are more
  1912. +    easily fixable than this one and I'm sick of writing the same comment
  1913. +    there as well. MW */
  1914. + #include <stddef.h>
  1915. + 
  1916. + #else /* not amigados */
  1917. + 
  1918.   /* Any one of these symbols __need_* means that GNU libc
  1919.      wants us just to define one data type.  So don't define
  1920. ***************
  1921. *** 147,150 ****
  1922. --- 161,166 ----
  1923.   #define __WCHAR_TYPE__ int
  1924.   #endif
  1925. + 
  1926. + #endif /* not amigados */
  1927.   #ifdef __GNUG__
  1928.   /* In C++, wchar_t is a distinct basic type,
  1929. diff -r2cN gcc-2.3.3/gvarargs.h my-gcc-2.3.3/gvarargs.h
  1930. *** gcc-2.3.3/gvarargs.h    Sat Nov 28 22:09:36 1992
  1931. --- my-gcc-2.3.3/gvarargs.h    Sat Nov 28 23:57:06 1992
  1932. ***************
  1933. *** 1,155 ****
  1934. - #ifndef __GNUC__
  1935. - /* Use the system's macros with the system's compiler.  */
  1936.   #include <varargs.h>
  1937. - #else
  1938. - /* Record that this is varargs.h; this turns off stdarg.h.  */
  1939. - 
  1940. - #ifndef _VARARGS_H
  1941. - #define _VARARGS_H
  1942. - 
  1943. - #ifdef __sparc__
  1944. - #include <va-sparc.h>
  1945. - #else
  1946. - #ifdef __spur__
  1947. - #include <va-spur.h>
  1948. - #else
  1949. - #ifdef __mips__
  1950. - #include <va-mips.h>
  1951. - #else
  1952. - #ifdef __i860__
  1953. - #include <va-i860.h>
  1954. - #else
  1955. - #ifdef __pyr__
  1956. - #include <va-pyr.h>
  1957. - #else
  1958. - #ifdef __m88k__
  1959. - #include <va-m88k.h>
  1960. - #else
  1961. - #if defined(__hppa__) || defined(hp800)
  1962. - #include <va-pa.h>
  1963. - #else
  1964. - #ifdef __i960__
  1965. - #include <va-i960.h>
  1966. - #else
  1967. - #ifdef __alpha__
  1968. - #include <va-alpha.h>
  1969. - #else
  1970. - 
  1971. - #ifdef __NeXT__
  1972. - 
  1973. - /* On Next, erase any vestiges of stdarg.h.  */
  1974. - 
  1975. - #ifdef _ANSI_STDARG_H_
  1976. - #define _VA_LIST_
  1977. - #endif
  1978. - #define _ANSI_STDARG_H_ 
  1979. - 
  1980. - #undef va_alist
  1981. - #undef va_dcl
  1982. - #undef va_list
  1983. - #undef va_start
  1984. - #undef va_end
  1985. - #undef __va_rounded_size
  1986. - #undef va_arg
  1987. - #endif  /* __NeXT__ */
  1988. - 
  1989. - /* In GCC version 2, we want an ellipsis at the end of the declaration
  1990. -    of the argument list.  GCC version 1 can't parse it.  */
  1991. - 
  1992. - #if __GNUC__ > 1
  1993. - #define __va_ellipsis ...
  1994. - #else
  1995. - #define __va_ellipsis
  1996. - #endif
  1997. - 
  1998. - /* These macros implement traditional (non-ANSI) varargs
  1999. -    for GNU C.  */
  2000. - 
  2001. - #define va_alist  __builtin_va_alist
  2002. - /* The ... causes current_function_varargs to be set in cc1.  */
  2003. - #define va_dcl    int __builtin_va_alist; __va_ellipsis
  2004. - 
  2005. - /* Define __gnuc_va_list, just as in gstdarg.h.  */
  2006. - 
  2007. - #ifndef __GNUC_VA_LIST
  2008. - #define __GNUC_VA_LIST
  2009. - #if defined(__svr4__) || defined(_AIX) || defined(_M_UNIX)
  2010. - typedef char *__gnuc_va_list;
  2011. - #else
  2012. - typedef void *__gnuc_va_list;
  2013. - #endif
  2014. - #endif
  2015. - 
  2016. - #define va_start(AP)  AP=(char *) &__builtin_va_alist
  2017. - 
  2018. - #define va_end(AP)
  2019. - 
  2020. - #define __va_rounded_size(TYPE)  \
  2021. -   (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
  2022. - 
  2023. - #if defined (__arm__) || defined (__i386__) || defined (__ns32000__) || defined (__vax__)
  2024. - /* This is for little-endian machines; small args are padded upward.  */
  2025. - #define va_arg(AP, TYPE)                        \
  2026. -  (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)),    \
  2027. -   *((TYPE *) (void *) ((char *) (AP) - __va_rounded_size (TYPE))))
  2028. - #else /* big-endian */
  2029. - /* This is for big-endian machines; small args are padded downward.  */
  2030. - #define va_arg(AP, TYPE)                        \
  2031. -  (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)),    \
  2032. -   *((TYPE *) (void *) ((char *) (AP) - ((sizeof (TYPE) < 4        \
  2033. -                      ? sizeof (TYPE)        \
  2034. -                      : __va_rounded_size (TYPE))))))
  2035. - #endif /* big-endian */
  2036. - 
  2037. - #endif /* not alpha */
  2038. - #endif /* not i960 */
  2039. - #endif /* not hppa */
  2040. - #endif /* not m88k */
  2041. - #endif /* not pyr */
  2042. - #endif /* not i860 */
  2043. - #endif /* not mips */
  2044. - #endif /* not spur */
  2045. - #endif /* not sparc */
  2046. - #endif /* not _VARARGS_H */
  2047. - 
  2048. - /* Define va_list from __gnuc_va_list.  */
  2049. - 
  2050. - #ifdef _HIDDEN_VA_LIST  /* On OSF1, this means varargs.h is "half-loaded".  */
  2051. - #undef _VA_LIST
  2052. - #endif
  2053. - 
  2054. - #ifdef __SVR4_2__
  2055. - 
  2056. - /* SVR4.2 uses _VA_LIST for an internal alias for va_list,
  2057. -    so we must avoid testing it and setting it here.  */
  2058. - #ifndef _VA_LIST_
  2059. - #define _VA_LIST_
  2060. - typedef __gnuc_va_list va_list;
  2061. - #endif /* _VA_LIST_ */
  2062. - 
  2063. - #else /* not __SVR4_2__ */
  2064. - 
  2065. - /* The macro _VA_LIST_ is the same thing used by this file in Ultrix.
  2066. -    But on BSD NET2 we must not test or define or undef it.
  2067. -    (Note that the comments in NET 2's ansi.h
  2068. -    are incorrect for _VA_LIST_--see stdio.h!)  */
  2069. - #if !defined (_VA_LIST_) || defined (__BSD_NET2__) || defined (____386BSD____)
  2070. - /* The macro _VA_LIST is used in SCO Unix 3.2.  */
  2071. - #ifndef _VA_LIST
  2072. - #if !(defined (__BSD_NET2__) || defined (____386BSD____))
  2073. - #define _VA_LIST_
  2074. - #endif
  2075. - #define _VA_LIST
  2076. - typedef __gnuc_va_list va_list;
  2077. - #endif /* not _VA_LIST */
  2078. - #endif /* not _VA_LIST_ */
  2079. - 
  2080. - #endif /* not __SVR4_2__ */
  2081. - 
  2082. - /* The next BSD release (if there is one) wants this symbol to be
  2083. -    undefined instead of _VA_LIST_.  */
  2084. - #ifdef _BSD_VA_LIST
  2085. - #undef _BSD_VA_LIST
  2086. - #endif
  2087. - 
  2088. - #endif /* __GNUC__ */
  2089. --- 1 ----
  2090. diff -r2cN gcc-2.3.3/machmode.h my-gcc-2.3.3/machmode.h
  2091. *** gcc-2.3.3/machmode.h    Sun Aug  2 02:59:22 1992
  2092. --- my-gcc-2.3.3/machmode.h    Sat Nov 28 22:30:46 1992
  2093. ***************
  2094. *** 84,88 ****
  2095.   /* Get the name of mode MODE as a string.  */
  2096.   
  2097. ! extern char *mode_name[];
  2098.   #define GET_MODE_NAME(MODE)        (mode_name[(int)(MODE)])
  2099.   
  2100. --- 84,88 ----
  2101.   /* Get the name of mode MODE as a string.  */
  2102.   
  2103. ! extern char * const mode_name[];
  2104.   #define GET_MODE_NAME(MODE)        (mode_name[(int)(MODE)])
  2105.   
  2106. ***************
  2107. *** 93,97 ****
  2108.      (integer, floating, complex, etc.)  */
  2109.   
  2110. ! extern enum mode_class mode_class[];
  2111.   #define GET_MODE_CLASS(MODE)        (mode_class[(int)(MODE)])
  2112.   
  2113. --- 93,97 ----
  2114.      (integer, floating, complex, etc.)  */
  2115.   
  2116. ! extern const enum mode_class mode_class[];
  2117.   #define GET_MODE_CLASS(MODE)        (mode_class[(int)(MODE)])
  2118.   
  2119. ***************
  2120. *** 98,102 ****
  2121.   /* Get the size in bytes of an object of mode MODE.  */
  2122.   
  2123. ! extern int mode_size[];
  2124.   #define GET_MODE_SIZE(MODE)        (mode_size[(int)(MODE)])
  2125.   
  2126. --- 98,102 ----
  2127.   /* Get the size in bytes of an object of mode MODE.  */
  2128.   
  2129. ! extern const int mode_size[];
  2130.   #define GET_MODE_SIZE(MODE)        (mode_size[(int)(MODE)])
  2131.   
  2132. ***************
  2133. *** 103,107 ****
  2134.   /* Get the size in bytes of the basic parts of an object of mode MODE.  */
  2135.   
  2136. ! extern int mode_unit_size[];
  2137.   #define GET_MODE_UNIT_SIZE(MODE)    (mode_unit_size[(int)(MODE)])
  2138.   
  2139. --- 103,107 ----
  2140.   /* Get the size in bytes of the basic parts of an object of mode MODE.  */
  2141.   
  2142. ! extern const int mode_unit_size[];
  2143.   #define GET_MODE_UNIT_SIZE(MODE)    (mode_unit_size[(int)(MODE)])
  2144.   
  2145. ***************
  2146. *** 125,129 ****
  2147.   /* Get the next wider natural mode (eg, QI -> HI -> SI -> DI -> TI).  */
  2148.   
  2149. ! extern enum machine_mode mode_wider_mode[];
  2150.   #define GET_MODE_WIDER_MODE(MODE)    (mode_wider_mode[(int)(MODE)])
  2151.   
  2152. --- 125,129 ----
  2153.   /* Get the next wider natural mode (eg, QI -> HI -> SI -> DI -> TI).  */
  2154.   
  2155. ! extern const enum machine_mode mode_wider_mode[];
  2156.   #define GET_MODE_WIDER_MODE(MODE)    (mode_wider_mode[(int)(MODE)])
  2157.   
  2158. diff -r2cN gcc-2.3.3/print-tree.c my-gcc-2.3.3/print-tree.c
  2159. *** gcc-2.3.3/print-tree.c    Sat Oct 24 00:09:26 1992
  2160. --- my-gcc-2.3.3/print-tree.c    Sat Nov 28 22:30:48 1992
  2161. ***************
  2162. *** 25,29 ****
  2163.   extern char **tree_code_name;
  2164.   
  2165. ! extern char *mode_name[];
  2166.   
  2167.   void print_node ();
  2168. --- 25,29 ----
  2169.   extern char **tree_code_name;
  2170.   
  2171. ! extern char *const mode_name[];
  2172.   
  2173.   void print_node ();
  2174. diff -r2cN gcc-2.3.3/protoize.c my-gcc-2.3.3/protoize.c
  2175. *** gcc-2.3.3/protoize.c    Sat Oct 17 20:50:54 1992
  2176. --- my-gcc-2.3.3/protoize.c    Sun Nov 29 20:16:59 1992
  2177. ***************
  2178. *** 79,83 ****
  2179. --- 79,86 ----
  2180.   
  2181.   extern int errno;
  2182. + #ifndef HAVE_STRERROR
  2183.   extern char *sys_errlist[];
  2184. + #define strerror(err) sys_errlist[err]
  2185. + #endif
  2186.   extern char *version_string;
  2187.   
  2188. ***************
  2189. *** 777,782 ****
  2190. --- 780,790 ----
  2191.     struct default_include *p;
  2192.   
  2193. + #ifdef FILE_NAME_ABSOLUTE_P
  2194. +   if (! FILE_NAME_ABSOLUTE_P (path))
  2195. +     abort ();
  2196. + #else
  2197.     if (path[0] != '/')
  2198.       abort ();        /* Must be an absolutized filename.  */
  2199. + #endif
  2200.   
  2201.     for (p = include_defaults; p->fname; p++)
  2202. ***************
  2203. *** 1205,1209 ****
  2204. --- 1213,1221 ----
  2205.       const char *src_p;
  2206.   
  2207. + #ifdef FILE_NAME_ABSOLUTE_P
  2208. +     if (! FILE_NAME_ABSOLUTE_P (rel_filename))
  2209. + #else
  2210.       if (rel_filename[0] != '/')
  2211. + #endif
  2212.         {
  2213.           src_p = cwd2;
  2214. ***************
  2215. *** 1407,1411 ****
  2216.               {
  2217.                 fprintf (stderr, "%s: %s: can't get status: %s\n",
  2218. !                pname, shortpath (NULL, filename), sys_errlist[errno]);
  2219.                 stat_buf.st_mtime = (time_t) -1;
  2220.               }
  2221. --- 1419,1423 ----
  2222.               {
  2223.                 fprintf (stderr, "%s: %s: can't get status: %s\n",
  2224. !                pname, shortpath (NULL, filename), strerror (errno));
  2225.                 stat_buf.st_mtime = (time_t) -1;
  2226.               }
  2227. ***************
  2228. *** 1468,1471 ****
  2229. --- 1480,1502 ----
  2230.   }
  2231.   
  2232. + /* Use this macro to advance a char * over the filename part in a line
  2233. +    read from an aux-info file. */
  2234. + 
  2235. + #ifndef amigados
  2236. + /* Version for file systems where the colon has no special meaning */
  2237. + #define ADVANCE_PAST_FILENAME(CP) \
  2238. +   while (* (CP) != ':') (CP)++
  2239. + #else
  2240. + /* Have to heuristically decide whether the colon is part of the filename
  2241. +    or whether it serves to delimit the filename from the line number. If
  2242. +    it's the latter case, then the character following the colon *must*
  2243. +    be a digit. Note that this heuristic fails if the filename starts
  2244. +    with a digit. */
  2245. + #define ADVANCE_PAST_FILENAME(CP) \
  2246. +     while ((CP)[0] != ':' || !isdigit ((CP)[1])) \
  2247. +       (CP)++;
  2248. + #endif
  2249. + 
  2250. + 
  2251.   /* Given a line from  an aux info file, and a time at which the aux info
  2252.      file it came from was created, check to see if the item described in
  2253. ***************
  2254. *** 1489,1494 ****
  2255.       const char *filename_start = p = l + 3;
  2256.   
  2257. !     while (*p != ':')
  2258. !       p++;
  2259.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  2260.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  2261. --- 1520,1524 ----
  2262.       const char *filename_start = p = l + 3;
  2263.   
  2264. !     ADVANCE_PAST_FILENAME (p);
  2265.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  2266.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  2267. ***************
  2268. *** 1547,1552 ****
  2269.       char *filename;
  2270.   
  2271. !     while (*p != ':')
  2272. !       p++;
  2273.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  2274.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  2275. --- 1577,1581 ----
  2276.       char *filename;
  2277.   
  2278. !     ADVANCE_PAST_FILENAME (p);
  2279.       filename = (char *) alloca ((size_t) (p - filename_start) + 1);
  2280.       strncpy (filename, filename_start, (size_t) (p - filename_start));
  2281. ***************
  2282. *** 2001,2005 ****
  2283.           {
  2284.             fprintf (stderr, "%s: could not fork process: %s\n",
  2285. !            pname, sys_errlist[errno]);
  2286.             return 0;
  2287.           }
  2288. --- 2030,2034 ----
  2289.           {
  2290.             fprintf (stderr, "%s: could not fork process: %s\n",
  2291. !            pname, strerror (errno));
  2292.             return 0;
  2293.           }
  2294. ***************
  2295. *** 2029,2033 ****
  2296.             {
  2297.               fprintf (stderr, "%s: wait failed: %s\n",
  2298. !              pname, sys_errlist[errno]);
  2299.               return 0;
  2300.             }
  2301. --- 2058,2062 ----
  2302.             {
  2303.               fprintf (stderr, "%s: wait failed: %s\n",
  2304. !              pname, strerror (errno));
  2305.               return 0;
  2306.             }
  2307. ***************
  2308. *** 2056,2060 ****
  2309.         write (f, compile_params[0], strlen (compile_params[0]));
  2310.         write (f, ": ", 2);
  2311. !       write (f, sys_errlist[e], strlen (sys_errlist[e]));
  2312.         write (f, "\n", 1);
  2313.             _exit (1);
  2314. --- 2085,2089 ----
  2315.         write (f, compile_params[0], strlen (compile_params[0]));
  2316.         write (f, ": ", 2);
  2317. !       write (f, strerror (e), strlen (strerror (e)));
  2318.         write (f, "\n", 1);
  2319.             _exit (1);
  2320. ***************
  2321. *** 2116,2120 ****
  2322.         fprintf (stderr, "%s: can't read aux info file `%s': %s\n",
  2323.              pname, shortpath (NULL, aux_info_filename),
  2324. !            sys_errlist[errno]);
  2325.         errors++;
  2326.         return;
  2327. --- 2145,2149 ----
  2328.         fprintf (stderr, "%s: can't read aux info file `%s': %s\n",
  2329.              pname, shortpath (NULL, aux_info_filename),
  2330. !            strerror (errno));
  2331.         errors++;
  2332.         return;
  2333. ***************
  2334. *** 2144,2148 ****
  2335.         fprintf (stderr, "%s: can't read aux info file `%s': %s\n",
  2336.              pname, shortpath (NULL, aux_info_filename),
  2337. !            sys_errlist[errno]);
  2338.         errors++;
  2339.         return;
  2340. --- 2173,2177 ----
  2341.         fprintf (stderr, "%s: can't read aux info file `%s': %s\n",
  2342.              pname, shortpath (NULL, aux_info_filename),
  2343. !            strerror (errno));
  2344.         errors++;
  2345.         return;
  2346. ***************
  2347. *** 2159,2163 ****
  2348.           fprintf (stderr, "%s: can't get status of aux info file `%s': %s\n",
  2349.            pname, shortpath (NULL, aux_info_filename),
  2350. !          sys_errlist[errno]);
  2351.           errors++;
  2352.           return;
  2353. --- 2188,2192 ----
  2354.           fprintf (stderr, "%s: can't get status of aux info file `%s': %s\n",
  2355.            pname, shortpath (NULL, aux_info_filename),
  2356. !          strerror (errno));
  2357.           errors++;
  2358.           return;
  2359. ***************
  2360. *** 2186,2190 ****
  2361.           fprintf (stderr, "%s: can't get status of aux info file `%s': %s\n",
  2362.                pname, shortpath (NULL, base_source_filename),
  2363. !              sys_errlist[errno]);
  2364.           errors++;
  2365.           return;
  2366. --- 2215,2219 ----
  2367.           fprintf (stderr, "%s: can't get status of aux info file `%s': %s\n",
  2368.                pname, shortpath (NULL, base_source_filename),
  2369. !              strerror (errno));
  2370.           errors++;
  2371.           return;
  2372. ***************
  2373. *** 2207,2211 ****
  2374.           fprintf (stderr, "%s: can't open aux info file `%s' for reading: %s\n",
  2375.            pname, shortpath (NULL, aux_info_filename),
  2376. !          sys_errlist[errno]);
  2377.           return;
  2378.         }
  2379. --- 2236,2240 ----
  2380.           fprintf (stderr, "%s: can't open aux info file `%s' for reading: %s\n",
  2381.            pname, shortpath (NULL, aux_info_filename),
  2382. !          strerror (errno));
  2383.           return;
  2384.         }
  2385. ***************
  2386. *** 2223,2227 ****
  2387.           fprintf (stderr, "%s: error reading aux info file `%s': %s\n",
  2388.            pname, shortpath (NULL, aux_info_filename),
  2389. !          sys_errlist[errno]);
  2390.           free (aux_info_base);
  2391.           close (aux_info_file);
  2392. --- 2252,2256 ----
  2393.           fprintf (stderr, "%s: error reading aux info file `%s': %s\n",
  2394.            pname, shortpath (NULL, aux_info_filename),
  2395. !          strerror (errno));
  2396.           free (aux_info_base);
  2397.           close (aux_info_file);
  2398. ***************
  2399. *** 2235,2239 ****
  2400.           fprintf (stderr, "%s: error closing aux info file `%s': %s\n",
  2401.            pname, shortpath (NULL, aux_info_filename),
  2402. !          sys_errlist[errno]);
  2403.           free (aux_info_base);
  2404.           close (aux_info_file);
  2405. --- 2264,2268 ----
  2406.           fprintf (stderr, "%s: error closing aux info file `%s': %s\n",
  2407.            pname, shortpath (NULL, aux_info_filename),
  2408. !          strerror (errno));
  2409.           free (aux_info_base);
  2410.           close (aux_info_file);
  2411. ***************
  2412. *** 2249,2253 ****
  2413.         fprintf (stderr, "%s: can't delete aux info file `%s': %s\n",
  2414.              pname, shortpath (NULL, aux_info_filename),
  2415. !            sys_errlist[errno]);
  2416.   
  2417.     /* Save a pointer into the first line of the aux_info file which
  2418. --- 2278,2282 ----
  2419.         fprintf (stderr, "%s: can't delete aux info file `%s': %s\n",
  2420.              pname, shortpath (NULL, aux_info_filename),
  2421. !            strerror (errno));
  2422.   
  2423.     /* Save a pointer into the first line of the aux_info file which
  2424. ***************
  2425. *** 2261,2265 ****
  2426.       char *p = aux_info_base;
  2427.   
  2428. !     while (*p != ':')
  2429.         p++;
  2430.       p++;
  2431. --- 2290,2296 ----
  2432.       char *p = aux_info_base;
  2433.   
  2434. !     /* have to make sure at least one space is following the colon to make
  2435. !        sure the colon is not part of the filename */
  2436. !     while (*p != ':' && p[1] != ' ')
  2437.         p++;
  2438.       p++;
  2439. ***************
  2440. *** 2275,2279 ****
  2441. --- 2306,2314 ----
  2442.       aux_info_second_line = p;
  2443.       aux_info_relocated_name = 0;
  2444. + #ifdef FILE_NAME_ABSOLUTE_P
  2445. +     if (! FILE_NAME_ABSOLUTE_P (invocation_filename))
  2446. + #else
  2447.       if (invocation_filename[0] != '/')
  2448. + #endif
  2449.         {
  2450.       /* INVOCATION_FILENAME is relative;
  2451. ***************
  2452. *** 2315,2319 ****
  2453.                       fprintf (stderr, "%s: can't delete file `%s': %s\n",
  2454.                    pname, shortpath (NULL, aux_info_filename),
  2455. !                  sys_errlist[errno]);
  2456.                       return;
  2457.                     }
  2458. --- 2350,2354 ----
  2459.                       fprintf (stderr, "%s: can't delete file `%s': %s\n",
  2460.                    pname, shortpath (NULL, aux_info_filename),
  2461. !                  strerror (errno));
  2462.                       return;
  2463.                     }
  2464. ***************
  2465. *** 2363,2367 ****
  2466.   
  2467.   /* Check an individual filename for a .c suffix.  If the filename has this
  2468. !    suffix, rename the file such that its suffix is changed to .C.  This
  2469.      function implements the -C option.  */
  2470.   
  2471. --- 2398,2402 ----
  2472.   
  2473.   /* Check an individual filename for a .c suffix.  If the filename has this
  2474. !    suffix, rename the file such that its suffix is changed to .cc.  This
  2475.      function implements the -C option.  */
  2476.   
  2477. ***************
  2478. *** 2372,2376 ****
  2479.     const char *filename = hp->symbol;
  2480.     int last_char_index = strlen (filename) - 1;
  2481. !   char *const new_filename = (char *) alloca (strlen (filename) + 1);
  2482.   
  2483.     /* Note that we don't care here if the given file was converted or not.  It
  2484. --- 2407,2411 ----
  2485.     const char *filename = hp->symbol;
  2486.     int last_char_index = strlen (filename) - 1;
  2487. !   char *const new_filename = (char *) alloca (strlen (filename) + 2);
  2488.   
  2489.     /* Note that we don't care here if the given file was converted or not.  It
  2490. ***************
  2491. *** 2384,2389 ****
  2492.   
  2493.     strcpy (new_filename, filename);
  2494. !   new_filename[last_char_index] = 'C';
  2495.   
  2496.     if (my_link (filename, new_filename) == -1)
  2497.       {
  2498. --- 2419,2441 ----
  2499.   
  2500.     strcpy (new_filename, filename);
  2501. !   strcat (new_filename + last_char_index, "cc");
  2502.   
  2503. +   /* use rename(2) if available !! Update config files to include HAVE_rename
  2504. +      if the used OS provides it. Advantages are: it's atomic, it's one
  2505. +      system call compared to two. */
  2506. + 
  2507. + #ifdef HAVE_rename
  2508. +   /* if the mentioned systems (POSIX 1003.1-1988) have rename(2), this has
  2509. +      to be changed to `my_rename' as well. */
  2510. + 
  2511. +   if (rename (filename, new_filename) == -1)
  2512. +     {
  2513. +       fprintf (stderr, "%s: warning: can't rename file `%s' to `%s': %s\n",
  2514. +            pname, shortpath (NULL, filename),
  2515. +            shortpath (NULL, new_filename), strerror (errno));
  2516. +       errors++;
  2517. +       return;
  2518. +     }
  2519. + #else
  2520.     if (my_link (filename, new_filename) == -1)
  2521.       {
  2522. ***************
  2523. *** 2390,2394 ****
  2524.         fprintf (stderr, "%s: warning: can't link file `%s' to `%s': %s\n",
  2525.              pname, shortpath (NULL, filename),
  2526. !            shortpath (NULL, new_filename), sys_errlist[errno]);
  2527.         errors++;
  2528.         return;
  2529. --- 2442,2446 ----
  2530.         fprintf (stderr, "%s: warning: can't link file `%s' to `%s': %s\n",
  2531.              pname, shortpath (NULL, filename),
  2532. !            shortpath (NULL, new_filename), strerror (errno));
  2533.         errors++;
  2534.         return;
  2535. ***************
  2536. *** 2398,2405 ****
  2537.       {
  2538.         fprintf (stderr, "%s: warning: can't delete file `%s': %s\n",
  2539. !            pname, shortpath (NULL, filename), sys_errlist[errno]);
  2540.         errors++;
  2541.         return;
  2542.       }
  2543.   }
  2544.   
  2545. --- 2450,2458 ----
  2546.       {
  2547.         fprintf (stderr, "%s: warning: can't delete file `%s': %s\n",
  2548. !            pname, shortpath (NULL, filename), strerror (errno));
  2549.         errors++;
  2550.         return;
  2551.       }
  2552. + #endif
  2553.   }
  2554.   
  2555. ***************
  2556. *** 4094,4098 ****
  2557.       {
  2558.         fprintf (stderr, "%s: can't get status for file `%s': %s\n",
  2559. !            pname, shortpath (NULL, convert_filename), sys_errlist[errno]);
  2560.         return;
  2561.       }
  2562. --- 4147,4151 ----
  2563.       {
  2564.         fprintf (stderr, "%s: can't get status for file `%s': %s\n",
  2565. !            pname, shortpath (NULL, convert_filename), strerror (errno));
  2566.         return;
  2567.       }
  2568. ***************
  2569. *** 4129,4133 ****
  2570.           fprintf (stderr, "%s: can't open file `%s' for reading: %s\n",
  2571.            pname, shortpath (NULL, convert_filename),
  2572. !          sys_errlist[errno]);
  2573.           return;
  2574.         }
  2575. --- 4182,4186 ----
  2576.           fprintf (stderr, "%s: can't open file `%s' for reading: %s\n",
  2577.            pname, shortpath (NULL, convert_filename),
  2578. !          strerror (errno));
  2579.           return;
  2580.         }
  2581. ***************
  2582. *** 4142,4146 ****
  2583.           fprintf (stderr, "\n%s: error reading input file `%s': %s\n",
  2584.            pname, shortpath (NULL, convert_filename),
  2585. !          sys_errlist[errno]);
  2586.           return;
  2587.         }
  2588. --- 4195,4199 ----
  2589.           fprintf (stderr, "\n%s: error reading input file `%s': %s\n",
  2590.            pname, shortpath (NULL, convert_filename),
  2591. !          strerror (errno));
  2592.           return;
  2593.         }
  2594. ***************
  2595. *** 4175,4179 ****
  2596.           fprintf (stderr, "%s: can't create/open clean file `%s': %s\n",
  2597.            pname, shortpath (NULL, clean_filename),
  2598. !          sys_errlist[errno]);
  2599.           return;
  2600.         }
  2601. --- 4228,4232 ----
  2602.           fprintf (stderr, "%s: can't create/open clean file `%s': %s\n",
  2603.            pname, shortpath (NULL, clean_filename),
  2604. !          strerror (errno));
  2605.           return;
  2606.         }
  2607. ***************
  2608. *** 4183,4187 ****
  2609.       if (write (clean_file, new_clean_text_base, clean_size) != clean_size)
  2610.         fprintf (stderr, "%s: error writing file `%s': %s\n",
  2611. !            pname, shortpath (NULL, clean_filename), sys_errlist[errno]);
  2612.     
  2613.       close (clean_file);
  2614. --- 4236,4240 ----
  2615.       if (write (clean_file, new_clean_text_base, clean_size) != clean_size)
  2616.         fprintf (stderr, "%s: error writing file `%s': %s\n",
  2617. !            pname, shortpath (NULL, clean_filename), strerror (errno));
  2618.     
  2619.       close (clean_file);
  2620. ***************
  2621. *** 4286,4290 ****
  2622.                  shortpath (NULL, convert_filename),
  2623.                  shortpath (NULL, new_filename),
  2624. !                sys_errlist[errno]);
  2625.                 return;
  2626.               }
  2627. --- 4339,4343 ----
  2628.                  shortpath (NULL, convert_filename),
  2629.                  shortpath (NULL, new_filename),
  2630. !                strerror (errno));
  2631.                 return;
  2632.               }
  2633. ***************
  2634. *** 4295,4299 ****
  2635.       {
  2636.         fprintf (stderr, "%s: can't delete file `%s': %s\n",
  2637. !            pname, shortpath (NULL, convert_filename), sys_errlist[errno]);
  2638.         return;
  2639.       }
  2640. --- 4348,4352 ----
  2641.       {
  2642.         fprintf (stderr, "%s: can't delete file `%s': %s\n",
  2643. !            pname, shortpath (NULL, convert_filename), strerror (errno));
  2644.         return;
  2645.       }
  2646. ***************
  2647. *** 4308,4312 ****
  2648.           fprintf (stderr, "%s: can't create/open output file `%s': %s\n",
  2649.            pname, shortpath (NULL, convert_filename),
  2650. !          sys_errlist[errno]);
  2651.           return;
  2652.         }
  2653. --- 4361,4365 ----
  2654.           fprintf (stderr, "%s: can't create/open output file `%s': %s\n",
  2655.            pname, shortpath (NULL, convert_filename),
  2656. !          strerror (errno));
  2657.           return;
  2658.         }
  2659. ***************
  2660. *** 4320,4324 ****
  2661.           fprintf (stderr, "%s: error writing file `%s': %s\n",
  2662.            pname, shortpath (NULL, convert_filename),
  2663. !          sys_errlist[errno]);
  2664.       }
  2665.     
  2666. --- 4373,4377 ----
  2667.           fprintf (stderr, "%s: error writing file `%s': %s\n",
  2668.            pname, shortpath (NULL, convert_filename),
  2669. !          strerror (errno));
  2670.       }
  2671.     
  2672. ***************
  2673. *** 4337,4341 ****
  2674.     if (my_chmod ((char *)convert_filename, stat_buf.st_mode) == -1)
  2675.       fprintf (stderr, "%s: can't change mode of file `%s': %s\n",
  2676. !          pname, shortpath (NULL, convert_filename), sys_errlist[errno]);
  2677.   
  2678.     /* Note:  We would try to change the owner and group of the output file
  2679. --- 4390,4394 ----
  2680.     if (my_chmod ((char *)convert_filename, stat_buf.st_mode) == -1)
  2681.       fprintf (stderr, "%s: can't change mode of file `%s': %s\n",
  2682. !          pname, shortpath (NULL, convert_filename), strerror (errno));
  2683.   
  2684.     /* Note:  We would try to change the owner and group of the output file
  2685. ***************
  2686. *** 4480,4484 ****
  2687.       {
  2688.         fprintf (stderr, "%s: cannot get working directory: %s\n",
  2689. !            pname, sys_errlist[errno]);
  2690.         exit (1);
  2691.       }
  2692. --- 4533,4537 ----
  2693.       {
  2694.         fprintf (stderr, "%s: cannot get working directory: %s\n",
  2695. !            pname, strerror (errno));
  2696.         exit (1);
  2697.       }
  2698. diff -r2cN gcc-2.3.3/rtl.c my-gcc-2.3.3/rtl.c
  2699. *** gcc-2.3.3/rtl.c    Sat Sep 19 19:33:11 1992
  2700. --- my-gcc-2.3.3/rtl.c    Sat Nov 28 22:30:57 1992
  2701. ***************
  2702. *** 50,54 ****
  2703.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   NAME ,
  2704.   
  2705. ! char *rtx_name[] = {
  2706.   #include "rtl.def"        /* rtl expressions are documented here */
  2707.   };
  2708. --- 50,54 ----
  2709.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   NAME ,
  2710.   
  2711. ! char * const rtx_name[] = {
  2712.   #include "rtl.def"        /* rtl expressions are documented here */
  2713.   };
  2714. ***************
  2715. *** 61,65 ****
  2716.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  NAME,
  2717.   
  2718. ! char *mode_name[(int) MAX_MACHINE_MODE] = {
  2719.   #include "machmode.def"
  2720.   
  2721. --- 61,65 ----
  2722.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  NAME,
  2723.   
  2724. ! char * const mode_name[(int) MAX_MACHINE_MODE] = {
  2725.   #include "machmode.def"
  2726.   
  2727. ***************
  2728. *** 77,81 ****
  2729.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  CLASS,
  2730.   
  2731. ! enum mode_class mode_class[(int) MAX_MACHINE_MODE] = {
  2732.   #include "machmode.def"
  2733.   };
  2734. --- 77,81 ----
  2735.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  CLASS,
  2736.   
  2737. ! const enum mode_class mode_class[(int) MAX_MACHINE_MODE] = {
  2738.   #include "machmode.def"
  2739.   };
  2740. ***************
  2741. *** 88,92 ****
  2742.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  SIZE,
  2743.   
  2744. ! int mode_size[(int) MAX_MACHINE_MODE] = {
  2745.   #include "machmode.def"
  2746.   };
  2747. --- 88,92 ----
  2748.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  SIZE,
  2749.   
  2750. ! const int mode_size[(int) MAX_MACHINE_MODE] = {
  2751.   #include "machmode.def"
  2752.   };
  2753. ***************
  2754. *** 99,103 ****
  2755.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  UNIT,
  2756.   
  2757. ! int mode_unit_size[(int) MAX_MACHINE_MODE] = {
  2758.   #include "machmode.def"        /* machine modes are documented here */
  2759.   };
  2760. --- 99,103 ----
  2761.   #define DEF_MACHMODE(SYM, NAME, CLASS, SIZE, UNIT, WIDER)  UNIT,
  2762.   
  2763. ! const int mode_unit_size[(int) MAX_MACHINE_MODE] = {
  2764.   #include "machmode.def"        /* machine modes are documented here */
  2765.   };
  2766. ***************
  2767. *** 112,116 ****
  2768.     (enum machine_mode) WIDER,
  2769.   
  2770. ! enum machine_mode mode_wider_mode[(int) MAX_MACHINE_MODE] = {
  2771.   #include "machmode.def"        /* machine modes are documented here */
  2772.   };
  2773. --- 112,116 ----
  2774.     (enum machine_mode) WIDER,
  2775.   
  2776. ! const enum machine_mode mode_wider_mode[(int) MAX_MACHINE_MODE] = {
  2777.   #include "machmode.def"        /* machine modes are documented here */
  2778.   };
  2779. ***************
  2780. *** 131,135 ****
  2781.      each character describes one operand.  */
  2782.   
  2783. ! char *rtx_format[] = {
  2784.     /* "*" undefined.
  2785.            can cause a warning message
  2786. --- 131,135 ----
  2787.      each character describes one operand.  */
  2788.   
  2789. ! char *const rtx_format[] = {
  2790.     /* "*" undefined.
  2791.            can cause a warning message
  2792. ***************
  2793. *** 162,166 ****
  2794.      that rtx code.  See rtl.def for documentation on the defined classes.  */
  2795.   
  2796. ! char rtx_class[] = {
  2797.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   CLASS, 
  2798.   #include "rtl.def"        /* rtl expressions are defined here */
  2799. --- 162,166 ----
  2800.      that rtx code.  See rtl.def for documentation on the defined classes.  */
  2801.   
  2802. ! const char rtx_class[] = {
  2803.   #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS)   CLASS, 
  2804.   #include "rtl.def"        /* rtl expressions are defined here */
  2805. ***************
  2806. *** 170,174 ****
  2807.   /* Names for kinds of NOTEs and REG_NOTEs.  */
  2808.   
  2809. ! char *note_insn_name[] = { "NOTE_INSN_FUNCTION_BEG", "NOTE_INSN_DELETED",
  2810.                  "NOTE_INSN_BLOCK_BEG", "NOTE_INSN_BLOCK_END",
  2811.                  "NOTE_INSN_LOOP_BEG", "NOTE_INSN_LOOP_END",
  2812. --- 170,175 ----
  2813.   /* Names for kinds of NOTEs and REG_NOTEs.  */
  2814.   
  2815. ! char * const note_insn_name[] = 
  2816. !              { "NOTE_INSN_FUNCTION_BEG", "NOTE_INSN_DELETED",
  2817.                  "NOTE_INSN_BLOCK_BEG", "NOTE_INSN_BLOCK_END",
  2818.                  "NOTE_INSN_LOOP_BEG", "NOTE_INSN_LOOP_END",
  2819. ***************
  2820. *** 178,182 ****
  2821.                  "NOTE_INSN_DELETED_LABEL"};
  2822.   
  2823. ! char *reg_note_name[] = { "", "REG_DEAD", "REG_INC", "REG_EQUIV", "REG_WAS_0",
  2824.                 "REG_EQUAL", "REG_RETVAL", "REG_LIBCALL",
  2825.                 "REG_NONNEG", "REG_NO_CONFLICT", "REG_UNUSED",
  2826. --- 179,184 ----
  2827.                  "NOTE_INSN_DELETED_LABEL"};
  2828.   
  2829. ! char * const reg_note_name[] = 
  2830. !             { "", "REG_DEAD", "REG_INC", "REG_EQUIV", "REG_WAS_0",
  2831.                 "REG_EQUAL", "REG_RETVAL", "REG_LIBCALL",
  2832.                 "REG_NONNEG", "REG_NO_CONFLICT", "REG_UNUSED",
  2833. diff -r2cN gcc-2.3.3/rtl.h my-gcc-2.3.3/rtl.h
  2834. *** gcc-2.3.3/rtl.h    Wed Dec 30 00:13:33 1992
  2835. --- my-gcc-2.3.3/rtl.h    Mon Dec 28 14:03:44 1992
  2836. ***************
  2837. *** 43,53 ****
  2838.   #define GET_RTX_LENGTH(CODE)        (rtx_length[(int)(CODE)])
  2839.   
  2840. ! extern char *rtx_name[];
  2841.   #define GET_RTX_NAME(CODE)        (rtx_name[(int)(CODE)])
  2842.   
  2843. ! extern char *rtx_format[];
  2844.   #define GET_RTX_FORMAT(CODE)        (rtx_format[(int)(CODE)])
  2845.   
  2846. ! extern char rtx_class[];
  2847.   #define GET_RTX_CLASS(CODE)        (rtx_class[(int)(CODE)])
  2848.   
  2849. --- 43,53 ----
  2850.   #define GET_RTX_LENGTH(CODE)        (rtx_length[(int)(CODE)])
  2851.   
  2852. ! extern char * const rtx_name[];
  2853.   #define GET_RTX_NAME(CODE)        (rtx_name[(int)(CODE)])
  2854.   
  2855. ! extern char * const rtx_format[];
  2856.   #define GET_RTX_FORMAT(CODE)        (rtx_format[(int)(CODE)])
  2857.   
  2858. ! extern const char rtx_class[];
  2859.   #define GET_RTX_CLASS(CODE)        (rtx_class[(int)(CODE)])
  2860.   
  2861. ***************
  2862. *** 329,333 ****
  2863.   /* Names for REG_NOTE's in EXPR_LIST insn's.  */
  2864.   
  2865. ! extern char *reg_note_name[];
  2866.   #define GET_REG_NOTE_NAME(MODE) (reg_note_name[(int)(MODE)])
  2867.   
  2868. --- 329,333 ----
  2869.   /* Names for REG_NOTE's in EXPR_LIST insn's.  */
  2870.   
  2871. ! extern char *const reg_note_name[];
  2872.   #define GET_REG_NOTE_NAME(MODE) (reg_note_name[(int)(MODE)])
  2873.   
  2874. ***************
  2875. *** 397,401 ****
  2876.   /* Names for NOTE insn's other than line numbers.  */
  2877.   
  2878. ! extern char *note_insn_name[];
  2879.   #define GET_NOTE_INSN_NAME(NOTE_CODE) (note_insn_name[-(NOTE_CODE)])
  2880.   
  2881. --- 397,401 ----
  2882.   /* Names for NOTE insn's other than line numbers.  */
  2883.   
  2884. ! extern char *const note_insn_name[];
  2885.   #define GET_NOTE_INSN_NAME(NOTE_CODE) (note_insn_name[-(NOTE_CODE)])
  2886.   
  2887. Binary files gcc-2.3.3/stage1/cc1 and my-gcc-2.3.3/stage1/cc1 differ
  2888. Binary files gcc-2.3.3/stage1/cc1obj and my-gcc-2.3.3/stage1/cc1obj differ
  2889. Binary files gcc-2.3.3/stage1/cc1plus and my-gcc-2.3.3/stage1/cc1plus differ
  2890. Binary files gcc-2.3.3/stage1/cccp and my-gcc-2.3.3/stage1/cccp differ
  2891. Binary files gcc-2.3.3/stage1/cpp and my-gcc-2.3.3/stage1/cpp differ
  2892. Binary files gcc-2.3.3/stage1/enquire and my-gcc-2.3.3/stage1/enquire differ
  2893. Binary files gcc-2.3.3/stage1/gccs and my-gcc-2.3.3/stage1/gccs differ
  2894. Binary files gcc-2.3.3/stage1/genattr and my-gcc-2.3.3/stage1/genattr differ
  2895. Binary files gcc-2.3.3/stage1/genattrtab and my-gcc-2.3.3/stage1/genattrtab differ
  2896. Binary files gcc-2.3.3/stage1/gencodes and my-gcc-2.3.3/stage1/gencodes differ
  2897. Binary files gcc-2.3.3/stage1/genconfig and my-gcc-2.3.3/stage1/genconfig differ
  2898. Binary files gcc-2.3.3/stage1/genemit and my-gcc-2.3.3/stage1/genemit differ
  2899. Binary files gcc-2.3.3/stage1/genextract and my-gcc-2.3.3/stage1/genextract differ
  2900. Binary files gcc-2.3.3/stage1/genflags and my-gcc-2.3.3/stage1/genflags differ
  2901. Binary files gcc-2.3.3/stage1/genoutput and my-gcc-2.3.3/stage1/genoutput differ
  2902. Binary files gcc-2.3.3/stage1/genpeep and my-gcc-2.3.3/stage1/genpeep differ
  2903. Binary files gcc-2.3.3/stage1/genrecog and my-gcc-2.3.3/stage1/genrecog differ
  2904. diff -r2cN gcc-2.3.3/toplev.c my-gcc-2.3.3/toplev.c
  2905. *** gcc-2.3.3/toplev.c    Sat Nov 28 22:10:54 1992
  2906. --- my-gcc-2.3.3/toplev.c    Sat Nov 28 22:31:03 1992
  2907. ***************
  2908. *** 473,476 ****
  2909. --- 473,477 ----
  2910.     {"writable-strings", &flag_writable_strings, 1},
  2911.     {"peephole", &flag_no_peephole, 0},
  2912. +   {"large-baserel", &flag_pic, 4},
  2913.     {"force-mem", &flag_force_mem, 1},
  2914.     {"force-addr", &flag_force_addr, 1},
  2915. ***************
  2916. *** 490,493 ****
  2917. --- 491,495 ----
  2918.     {"pic", &flag_pic, 1},
  2919.     {"PIC", &flag_pic, 2},
  2920. +   {"baserel", &flag_pic, 3},
  2921.     {"fast-math", &flag_fast_math, 1},
  2922.     {"common", &flag_no_common, 0},
  2923. ***************
  2924. *** 1454,1457 ****
  2925. --- 1456,1462 ----
  2926.        char *input_name;
  2927.   {
  2928. + #ifdef FILE_NAME_NONDIRECTORY
  2929. +   char *na = FILE_NAME_NONDIRECTORY (input_name);
  2930. + #else
  2931.     int len = strlen (input_name);
  2932.     char *na = input_name + len;
  2933. ***************
  2934. *** 1464,1467 ****
  2935. --- 1469,1473 ----
  2936.         na--;
  2937.       }
  2938. + #endif
  2939.   
  2940.   #ifdef ASM_OUTPUT_MAIN_SOURCE_FILENAME
  2941. ***************
  2942. *** 3287,3290 ****
  2943. --- 3293,3297 ----
  2944.   #ifndef OS2
  2945.   #ifndef VMS
  2946. + #ifndef amigados
  2947.     if (flag_print_mem)
  2948.       {
  2949. ***************
  2950. *** 3301,3304 ****
  2951. --- 3308,3312 ----
  2952.   #endif /* not USG */
  2953.       }
  2954. + #endif /* not amigados */
  2955.   #endif /* not VMS */
  2956.   #endif /* not OS2 */
  2957. diff -r2cN gcc-2.3.3/tree.c my-gcc-2.3.3/tree.c
  2958. *** gcc-2.3.3/tree.c    Thu Oct 22 12:00:22 1992
  2959. --- my-gcc-2.3.3/tree.c    Sat Nov 28 22:31:07 1992
  2960. ***************
  2961. *** 247,251 ****
  2962.   static int next_decl_uid;
  2963.   
  2964. ! extern char *mode_name[];
  2965.   
  2966.   void gcc_obstack_init ();
  2967. --- 247,251 ----
  2968.   static int next_decl_uid;
  2969.   
  2970. ! extern char *const mode_name[];
  2971.   
  2972.   void gcc_obstack_init ();
  2973.